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FACILITY: ACC, Account file dumper 


i ABSTRACT: 
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This utility dumps the systen accounting file in a readable, labelled 
format, and allows searching for particular entries. Also, two 
binary output files may be created containing the selected and 
unselected records respectively. 
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VAX/VMS operating system. unprivileged user mode, 
; AUTHOR: Greg Robert and Steve Forgey, January 1982 

; Modified by: 
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v03-021 DASO010 David Selenen | 16-Jul-1984 
Translate UIC from binary t ote hanumeric only for /SUMMARY=UIC. 
09 Rrensi et ten for /FULL in. FORMAT\SHOW_FULL only if we need to 
splay 


v03-020 DAS0009 David Solomon 09-Jul-1984 
Fix bug in string comparison of ‘'="' for ule (SPR 11-68680). 


v03-019 pascocs David Solomon Rar aa po 
ix order of key table so that summary y WiC. elapased time, 
fT ag volumes, pages printed, ona AB ont gets and qios 
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os se.ta ie dominican Sent teac te aa 


processing of the meat ft Le. SPR 1i- gtr 
v03-018 DAS0007 bev! q Se Lomon 27-Jun-1984 

Only translate UIC if /SUMMARY=UIC instead of just /SUMMARY. 
v03-017 DASO006 David Solomon 12-Apr-1984 


Fix bug parsing is image "srteeee (due to image filespecs now 
being unconcealed). Use SFILESCAN to op t now. 


v03-016 dAso00 David $ 8-F eb-1984 | 
oer + Fe lLongword es reat” to Lissrite. eecaN to make 
tickyness work correctly with search Lists. 


v03-015 DASO004 David Solomon 23-Jan-1984 
Extend Length of queue names to 31 and job names to 39 bytes. 
Don't perform conversion fo alphanumeric UICs unless doing 
summary or full output. Fix bug where selection of a zero group 
4 eoayer Wis number was resulting in wildcard selection for 
a eld. 


v03-014 DASO003 Davi 12-Jan-1984 
Get ACCDEF.REQ from Sees, “not MSRCS. 


v03-013 DAS0002 David Solomon 02-Jan-1984 | 
Use unique symbol table index for summation table (was using 7. 
lek was the index for the /IDENTIFICATION $ mbol table) f 


ARAN SOPNOAP IN — SDR VOPR Oo Doe 


no files are selected, exit immediately (don' pnegrrosste call 
SORT routines, try and close output fi ses ffs: * improv 

recovery from bogus records in accountin le. Set key Start 
position in SORT_TABLE correctly in PARS KEYS " 


v03-012 LMP0140 L. Mark Pilant 19-Aug-1983 11:09 
Add support for alphanumeric vics. 
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88 
9 
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38 
35 
38 v03-011 passes’ David Solomon 25-Jul-1983 
4 y Now that the Job Controller fills ia writs -BEGTIME, correctly 
98 98 ~~ the elapsed time as end time minus begin time. 
100 100 v03-010 $ 0203 Steve Forgey 29-Jan-1983 
191 19) SPR i 
44 : Fix UIC exclusion bug. 
Ie 194 v03-009 $ a 1020 ss Steve Forgey 29-Jan-1983 
H+ 106 adding cain UICs with more than 3 digits per field. 
iss 198 v03-008 SPR #51083 Steve Forgey 29-Jan-1983 
1 119 Gxpand days field in time values in summary reports from 
1 11 digits. 
1 M6 
1 11 
1 114 
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v03-007 TN Steve Forgey 29-Jan-1983 
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¥04-000 1278 08-1 3b 47:20: U} DT EKSUMEMASTER SE ACE. SRC SACC.032:1 — (1). 


Fix input file wildcarding problem. 


v03-006 SPF0201 Steve Forgey 29-Jan-1983 
SPR #48396 
Eliminate erroneous data in summary report. 


V03-005 SPFO113 Steve Forgey 19-Apr-1982 
Don't use RETURN_IF_ERROR macro where the variable STATUS 
is already defined. 


V03-004 SPFO112 Steve Forgey 10-Apr-1982 
Format pre-Version 3 queue names as counted ASCII strings. 


v03-003 SPF0105 Steve Forgey 27-Mar-1982 
Get input file defaults from previous input file specs. 


V03-002 SPF0104 Steve Forgey 27-Mar-1982 
Specify correct max record size to SORSINIT_SORT. 


v03-001 SPFO102 Steve Forgey 27-Mar-1982 : 
Don’t add null value to selection List when parsing the 
exclusion qualifier, ‘’="". 


v0O2-002 SPF0081 Steve Forgey Feb-06-1982 
Fix value errors. 


v02-001 SPF0070 Steve Forgey Jan-23-1982 
Accept <> as Lhe ag delimiters in image file spec as well 
as £2, Also improve SORT performance. 
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REQUIRE "SRC$:ACCDEF'; ' Common ACC definitions 
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ACC 1$-se -1984 236: VAX-11 Bliss-32 V4.0-74 Pa 4 
¥0s-000 12-Sep-19 4 47:80: U} DISKSVMSMASTER: CACC. SRCJACC.832;1 ™ (2) 
3; («Y 8 995 1! ! 
s F 994 1! TABLE OF CONTENTS } 
oe S 995 1! ! 
° 1 4 1 ' eo ew Een enn nes cee = ee ce mee oem ew OR eww Dew eEeanwrenreoaan ae es ne eee Be wee oe ee te ead 
; 160 997 #1 
s 161 998 1 FORWARD ROUTINE 
3 106 0999 (1 ACC, ' yop level routine 
: 16 1000 1 ACC_CONTROL ! Main control loop 
> 164 1001 1 PROCESS _FILE i Processes one input file 
> 165 1008 1 PROCESS-RECORD, i Analyze input record 
> «166 1005 1 PROCESS_V2_RECORD, ! Analyze V2 record 
3; «6167 1004 1 PROCESS _V5_RECORD, ! Analyze V3 record 
: 168 1005 1 RECORD_SELECTED, ' Determine output disposition 
; 169 1006 1 PARSE_COMMAND, ! Analyze command Line 
s 170 1007 1 PARSE _DATES, ' Handles /DATE, /BEFORE, /SINCE 
3 a ieee : PARSE _KEYS; ' Handles /REPORT, /SORT, /SUMMARY 
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ACC 736: VAX-11 Bliss-32 V4.0-74 Page 6 
vO%-000 14-Sep-1984 $7589: 88 PE RSVRGMASTERSEACE  SRCSACC.832; 1 (4) 
® i ween eatean er eeneo sown ese eose ena eecenr nz eer we er sre ce emer emo nec en emo moc een r ee wees neers ecacan > P 
we BET : 
; «(191 1 § 1: GLOBAL STORAGE DEFINITIONS : : 
; 135 10 1} : : 
; 13? + ? : GLOBAL : 
3 199 18 § : KEY_BUF: BBLOCK (1024), ! Key/record buffer : 
; «4199 1034 1 HOLD_BIOCNT, : 
; 200 1035 1 HOLD-DIOCNT ; 
; 201 1 6 1 HOLDTELAPSEO: VECTOR (2), : 
; 0g 10 1 HOLD_EXECUTION, ° 
> 20 1038 1 HOLD-PAGEFLTS, ; 
> 204 1039 1 HOLD-GETCNT, : 
; 205 1040 1 HOLDTQIOCNT, : 
; 206 1041 1 HOLD _PAGCNT : 
; 207 104g HOLD-PGFLPEA : 
; 208 1043 1 HOLDPAGEREADS, : 
; 209 1044 1 HOLD-WSPEAK, : 
; 10 1045 1 HOLD_CPUTIM: VECTOR (2), ° 
3 1} eg : HOLD_ VOLUMES, ; 
3 ig 1048 1 CUSTOMER ' Customer type (V3 format only) 13 
> 214 1049 1 RECORD_LENGTH i Record Lengt : 
: 15 1050 1 RECORD~SUBTYPE, ' Record subtype (V3 format only) : 
; 19 1051 1 RECORD TYPE, ' Record type ° 
; + 1996 : VERSION, ! Record format version : 
: 219 1054 1 GROUP, ' UIC group : 
; 220 1055 1 MEMBER ! UIC member : 
; CONVERTED_UIC, ' Converted U : 
21 1056 1 ERTED_UIC i ¢ d VIC ; 
; $5 1058 1 QUAD_CPU_TIME: VECTOR (2), ! CPU time (quadword format) : 
; 2264 1059 1 ELAPSED TIME: VECTOR (2), ! Calculated elapsed time : 
; $52 H's «| ! WAIT_TIME: vECcTOR (2), ! Calculated queue wait time : 
: $5 Hg 1 ACCOUNT_DESC: VECTOR ° ' Describes account name : 
; 228 1065 1 ADDRESS DESC: VECTOR ° ! Describes remote node address : 
$ $3 1064 1 BUFFERED_10_ DESC VECTOR ° ! Describes buffered 1/0 count : 
3 0 1065 1 CPU_TIME-DESC: VECTOR 3 ' Describes cpu time : 
; 231 1066 1 DIRECT 10 DESC: VECTOR (2), ! Describes direct 1/0 count : 
5 3 1067 1 ENTRY DESC: VECTOR (2), ! Describes job id number : 
: 1068 1 ELAPSED DESC: VECTOR . ' Describes elapsed time ; 
; 234 1069 1 EXECUTION_DESC: VECTOR e ' Describes image execution count : 
s 39 1070 1 FILE DESC: VECTOR ° ! Describes file name : 
3; 236 1071 1 FINISH _TIME_DESC VECTOR ° ! Describes finish time : 
3 dor 1078 1 IDENT_BESC: VECTOR ° ! Describes process id (IDENT) | : 
; 238 1075 1 IMAGE_FILE_DESC VECTOR ° ' Describes image file specification 3 
; 239 1978 1 IMAGE DESC: VECTOR . : Describes image name : 
3; 240 1075 1 JOB _DESC: VECTOR " ' Describes job name ; 
3; 241 1 6 1 NODE _DESC: VECTOR ° ' Describes remote node name : 
; 4g 1077 1 OWNER DESC: VECTOR ‘ ' Describes owner IDENT 3 
3: 26 1 8 1 PAGE_FAULTS_ DESC: VECTOR ‘ ! Describes page fault count : 
3: 266 1079 1 PAGE-FILE DESC: VECTOR : ' Describes page file peak usage : 
; 245 1080 1 PAGE-READS_DESC: VECTOR ‘ ! Describes page read count : 
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ACC bese -1984 23:36: VAX-11 Bliss-32 V4.0-74 fa 7 

v04-000 14-Sep-19 4 7:30: ) SIEKSVMEMASTER LACE SRCTACC.832; 1 - (4) 

:; 24 1081 1 PRIORITY_DESC: VECTOR ° ! Describes process base oe 

3: 26 1 ¢ 1 PRIVILEGE DESC: VECTOR ‘ ! Describes process privilege mask 

3 248 1 1 PROCESS DESC: VECTOR . ! Describes process type 

> 249 1084 1 QUEUE_DESC: VECTOR . ' Describes queue name 

3 0 1085 1 QUEVE TIME DESC: VECTOR : ' Describes queue time 

; 1 1 § 1 REMOTE ID BESC: VECTOR “ ! Describes remote id 

3 ¢ 1 1 START_TIME_DESC: VECTOR ° ' Describes start time 

; 10 1 STATUS_DESC: VECTOR . ' Describes final exit status code 

3 4 10 1 STATUS TEXT_DESC: VECTOR ° ' Describes final exit status text 

: 5 1090 1 SUBTYPE_DESC: VECTOR : ' Describes record subtype 

3 23 1091 1 SYM_GET_DESC: VECTOR ‘ ' Describes symbiont get count 

: 2 1998 1 SYM_QIO DESC: VECTOR ° ! Describes symbiont gio count 

; 8 1095 1 SYM-PAGE_DESC: VECTOR ° ' Describes symbiont page count 

; 259 1094 1 TERMINAL-DESC: VECTOR : ' Describes terminal name 

; 260 1095 1 TYPE_DESC: VECTOR e ! Describes record type 

; 261 198 1 TYPE TEXT DESC: VECTOR ° ! Describes full record type text 

; $¢ 1097 1 UIC_BINARY_DESC: VECTOR ° ' Describes process UIC (binary) 

; 26 1098 1 UIC_GROUP_BESC: VECTOR ‘ ' Describes process UIC group (binary) 

: 264 1099 1 UIC"MEMBER_DESC VECTOR a ' Describes process UIC member (binary) 

; 265 1100 1 ESC: VECTOR ° ' Describes process UIC (ascii) 

; 266 1101 1 USER_DATA_DESC VECTOR ° ' Describes user data 

3; 267 1108 TU ESC: VECTOR (2), ! Describes user name 

: 268 1103 1 VOLUMES _DESC: VECTOR ¢ . ' Describes volume mount count 

5 +4 1 10¢ : WORKING_SET_DESC: VECTOR . ! Describes workieg set peak 

3; 271 1106 1! 

: 27 1107 1 ! When selection qualifiers are specified these switches indicate | 
: 27 1108 1 ! whether the qualifier ‘‘selects’’ or “‘rejects'’ records. If true 

: 274 1109 1°! then members of the List are selected, if false then rejected. 
3 ? 4119 : If the qualifier is not specified then the switch is never interogated. 

: 77 1338 1 

: 278 11135 1 ACCOUNT_SWITCH, 

: 79 1114 1 ADDRESS SWITCH, 

; 280 1115 1 ENTRY_SOITCH, 

: 281 1118 1 IDENT_SWITCH, 
3 soe 1117 1 IMAGE SWITCH, 

; 28 1118 #1 SQITCH, 
3 284 1119 1 NODE SWITCH, 
3; 6285 1139 1 ER_SwWITC 

3 286 1121 1 PRIORTTY SWITCH, 
: 287 11 é 1 PROCESS SWITCH, 

; 288 11 1 QUEUE SOITCH 

; 289 1124 1 REMOTE_ID SWITCH, 

: 290 1125 1 STATUS" SWITCH 

: 291 11 6 1 TERMINAL_SWITCH, 

: 4 11 1 TYPE SWITCH, 

: 29 1128 1 UIC_SWITCH 

> 29% 1129 1 UIC"GROUP SWITCH, 

: 295 1130 1 UIC"MEMBER SWITCH, 

: % 1 1 USER_SWITCA, 

3; 298 11 § 1 SELECTED, ' Count of selected records - this file 

; 299 1134 1 TOTAL_SELECTED, ' Count of selected records - all files 

; ‘s4 1 5 ! TOTAL _REJECTED, ! Count of rejected records - all files 

; 302 11 $ 1 SORT_KEY_SIZE, ! Total Length of sort keys 


4 
18-56 -1984 23:36:11 VAX-11 Bliss-32 V4.0-74 Pa 8 
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DATE_HEADER, ! Holds pointer to descriptor 
STATUS_TEXT_BUFFER: BBLOCK (80), 


! STORAGE FOR QUALIFIER VALUES AND COUNTS <= 


UIC_BUF : VECTOR (67, BYTE), ! process UIC (ascii) 
A_DATE_BuF : VECTOR , BYTE, ' DD-MMM-YYYY HH:MM:SS.CC 
‘a ) 


! Describes date in ascii 


DESC: VECTOR 
TAL 58) A_DATE_BUF), 


NUMERIC_DATE: VECTOR (7, WORD), Holds date in numeric format 
Year, month, hour, day, minute, 


second, hundredths = binere words 


3 
a6 
5 
10 
\} 
1g 
14 
15 
16 
17 
18 
19 
; 

3 
26 
26 
38 
2 
31 


3 11 1 3 
; 1139 1 : 
; 1140 1 H 
3 1141 1 : 
3 1326 1 é 
; 1145 «1 : 
3 1144 «4 é 
; 1145 1 ; 
3 1108 1 ; 
3 1147 «#1 : 
; 1133 1 : 
3 1149 #1 : 
; 1150 #1 : 
3 1151 «#1 : 
3 11 § 1 : 
; 1155 (1 ; 
; 1154 (1 ; 
; 1155 1 S_DATE_BUF: VECTOR (10, BYTE) ' YYYY MM DD ; 
5 1156 1 INITIAL (BYTE(' "33, : 
; 1157 1 S_DATE_DESC: VECTOR (2) ! Describes date in ascii (sort format) : 
3 a : INITIAL (10, S_DATE_BUF), | : 
: 1160 1 YEAR_DESC: VECTOR (2) ! Ascii year ; 
3 1303 : INTTIAL (4, S_DATE_BUF + 0), : 
3 1183 1 MONTH DESC: yscron (2) ! Ascii number string from 01 - 12 : 
; 1166 INITIAL (2, S_DATE_BUF + 5), : 
; 1166 1 DAY_DESC: vector (2) ! Ascii number string from 01 - 31 : 
; 1167 IRITIAL (2, S_DATE_BUF + 8), | : 
; 1169 1 WEEKDAY, ! Day of week : 
3 1170 1 WEEKDAY_DESC: VECTOR (2) ! Ascii number string from 0 - 6 : 
: V7} 1 INITIAL (1, WEEKDAY), : 
3 1178 1 HOUR_DESC: ome (2) ! Ascii number string from 00 - 23 | : 
: 339 1174 INTTIAL (2, A_DATE_BUF + 12), : 
; 1 a ! MESSAGE_DESC: VECTOR (2), ! Descibes user message text | : 
3 rk 1173 1 REPORT_HDR1_FAO:BBLOCK CDSC$K_D_BLN) ! FAO for /REPORT header 1 | : 
3 4 1179 #1 PRESET(COSC$B_CLASS] = DSCSR_CLASS_D), : 
; 5 1180 1 REPORT_HDR2 FAOTBBLOCK CDOSC$k_B_BLN ! FAO for /REPORT header 2 : 
3 § 113) 1  PRESET(COSC$B_CLASS] = DSCSR_CLASS_D), : 
3 11 ¢ 1 REPORT_HDR3_FAOZBBLOCK CDSC$K_B_BLN ! FAO for /REPORT header 3 : 
5 8 11 1  PRESET(COSCS$B_CLASS] = DSCSR_CLASS_D), : 
; 9 11 1 REPORT DET FAO: BBLOCK CDOSC$K_6_BLN ! FAO for /REPORT detail Line : 
3 50 1185 1  PRESET(CBSC$B_CLASS) = DSCS$R_CLASS_D). : 
; 351 11 1 REPORT_VALUE: “VECTOR CMAX_REPORT), ! Holds /REPORT values : 
3 26 11 1 REPORT_ITEMS, ! Holds number of repert items : 
3 37 i ; ' BUCKET"SIZE, ! Size of summation bucket in bytes 

r 55 11 1 SUM_KEY_ FAO: LOCK CDSC$K_D_BLN) ! FAO for /SUMMARY keys 

5 28 1191 1  PRESET(COSCSB_CLASS] = DSCSR ELASS_D), 

; «35 1138 1 SUM_KEY_VALUE: “VECTOR CMAX_SUA], ' Arquaent table for key FAO 

3 8 113? ' DATE_DESC_ADDR, ! Address of selected date desc 
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FIRST_DATE: 


“hoe (2, LONG, BYTE) 
CAX"FFFFFFFF® 2X" 7FFFFFFF*), 


LAST_DAT 


=< —<——+ AO 
ne 


aaah A DEPENDENT DATA 
in the given order. 


SORT -KeY COUNT: WORD, 
SORT_TAB 
BLOCKVECTOR CMAX_SORT+1, 
SORT_INDEX_T at 
VECTOR CMAX_SORT+1, BYTE); 


OWN 

SUMMARY _UIC; 
Sinit_state (uic_stb, uic_ktb); 
$state 
$state (; 
{tpas_eos, tpa$_exit) 
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Selection cutoff oases 
“allocate one quadword 
“default = oldest describable date 


Last date encountered 
“allocate one quadword 
“default = oldest describable date 


Earliest date encountered 
“allocate one Goeuers 
“initial value $ 
-futurest dover inente date 


next two items, SORT_KEY_COUNT and SORT_TABLE must be 
They aré passed as a unit to the sort 


Number of sort keys 


i Sort key List 


QUAD, BYTE), 


Sort key index table (each byte 


: | sgnsenen the index number in the 


SORT_KEYWORD table for the key). 


Flag if /SUMMARY=UIC specified. 
UIC parse state table 
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Worst error is returned. 


wr 


BEGIN 
EXTERNAL worst_error; 


LOCAL channel, status; 
4 


iSET UP HANDLERS --- 
' Declare condition handler to record severest 


4 
ACC 1b.s2 “19 36:11 VAX-11 Bliss-32 V4.0-74 P 
v64-000 1e-8ep=188e FTi8hi58 | DtekSVMGHASTERsCACE sacdacc.e32:1 2% 49 

: ; 8 ROUTINE ACC = ! Main routine for ACC 
4 ? lee 
? : Functional description 
“4 ; i This is the top level routine for the ACC facility. 
410 4 ; It calls the main control loop. Any errors encountered 
$13 5 will be passed back to this routine. 

18 5 ! Calling sequence 

15 ; ACC () from the command Language interpreter 

7 1 ; Input parameters 

13 5 ; AP = Address of argument List passed from CLI 

1 5 Output parameters 

§ , None 

5 9 Routine value 

: 

9 ! 

0 

5 
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rr error message issued, to be returned on exit of image. 

44 

rr ENABLE handler; 

444 

445 

ta ; 

448 iCALL MAIN CONTROL -=- 

449 ! Invoke the main subroutine. If any errors are encountered ener 
450 ! will be returned immediately, if fatal, or saved in WORST_ERRO 
451 ! for exit processing. 

38 : 

454 Perform (acc_control ()); 

455 

re ; 

438 iRETURN TO USER -=- 

45 : Return to the user. Variable WORST ERROR is maintained by 
460 ; the error handler (see routine HANDCER). If no messages have 


WEoseoctoge 28: ee]) YLT aiseese vees74g 


3 1 1295 ’ been signaled then the initial value of WORST_ERROR, SS$_NORMAL, 
; «4 1 : will be returned. 
; 4 129 ! 
; 4 1 os 
3 $32 : Return .worst_error; ! Return contents of WORST_ERROR 
; rh 1 END; 
TITLE s 
-IDENT \v04-000\ 


-PSECT _LIBSSTATES,NOWRT, SHR, PIC,1 
00000 uIC_sTB:: 


’ 0 
45EC 00000 ; TRPASTYPE 
U.2: 17900 
00000000* 00002 TRASADDR eteetatine tatihate taal 
“U.5>-4> 
15F7 00006 ; TPASTYPE 7 
0.4: -WORD 5623 
FFFF 00008 ; TPASTARGET 
U.5: WORD -1 


-PSECT _LIBSKEYOS,NOWRT, SHR, PIC,1 
00000 UIC_KTB:: 


-BLKB OO 
00000 ; TPASKEYO 
0.1: BLK 


0 

«PSECT DATA,NOEXE,2 
00000 KEY_BUF : 
00400 HOLD “ar0itt 
00404 HOLD “piognts. 
00408 HOLD “euaberee : 
00410 HOLD "EXECUT IGN: : 
00414 HOLD “PAGEL Tes: 
00418 HOLD “cetint: 
0041C HOLD “a1ognt 
00420 HOLD “PAGENT 
00424 HOLD _PGFLPEAK: 
00428 WOLD PAGE RF ARSt 
0042C HOLD_WSPEAK:: 


LKB 1024 


a FPF FF PF FO HK 


4 
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& 


SA 


00430 WOLD.cpuTINs 
00438 WOLD VOLUMES: : 
0043C CUSTOMER: : 
00440 RECORD _LENGTH:: 
00444 RECORD_ sigh: 
00448 RECORD_TYPE: : 
0044C VERSION: : 


0488 CONVERTED Uit:: 
0045¢ QUAD _cPUCTINE:: 
00464 ELAPSED fines 
0046C WAIT_TIME: 

00474 ACCOUNT Be. 
0047C ADDRESS_DESC:: 
00484 BUFFERED “To esc; : 
0048¢ CPU_TIME_DESC:: 
00494 DIRECT 10, DESC: 
0049C SUTRY PET 
004A4 ELAPSED_DESC:: 
OO4AC EXECUTION DESC: 
00484 FILE wk 
0048C FINISH -TIME DESC: 
0044 IDENT DESC: : 
OO4CC IMAGE_FILE DESC: : 
004D4 IMAGE_DESC:: 
004DC JOB_DESC:: = 


004E4 NODE DESC:: K 
OO4EC OWNER satit 
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00504 
0050C 
00514 
0051C 
00524 
0052¢ 
00534 
0053¢ 
00544 
0054C 
00554 
0055¢ 
00564 
0056C 
005/74 
0057¢ 
00584 
0058C 
00594 
0059C 
005A4 
005aC 
00584 
0058C 
00564 
005¢C 


te 


-Sep-1 

seit 97:89: bh 
PAGE FAULTS DESC:: 
PAGE_FILE DESC: 
PAGE READS pgse: 

PRIORITY. DESC:: 

*BLKB 
PRIVILEGE DESC: 
PROCESS_DESC:: 
QUEUE _DESC:: 

-BLKB 
QUEUE _TIME DESC: 

.BCKB 
REMOTE_10 DESC: 
START_TIME DESC: 
STATUS_DESC:: 

-BLKB 
STATUS_TEXT DESC: 
SUBTYPE _DESC:: 
SYM_GET_DESC:: 

-BLKB 
SYM_Q10_DESC:: 

-BLKB 
SYM_PAGE_DESC:: 
TERMINAL _DESC:: 
TYPE_DESC:: 

.BLKB 
TYPE_TEXT DESC:: 
UIC_BINARY DESC: 
UIC_GROUP_DESC: 
UIC_MEMBER DESC: 
UIC_DESC:: 

.BLKB 
USER_DATA DESC: 
USER_DESC:: 

BLK 
VOLUMES -DESC:: 
WORKING_SET Best: 
ACCOUNT_ SWITCH: : 

BLKB 


"a" @os.'co 0 00” © G0: 00 Go-0> > OD OD OD OD OD GD:-0D D:D OD. G> OD GD GD G--GD o-. 


005D0 ADDRESS_SWITCH:: 


VAX 
DIS 
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tae 
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4 | 
00504 entry. swittne: 
00508 1DENT_ Swi Wit 
OOSDC IMAGE _SWITCH:: 
00SEO JOB_ SWITCH: : 
00SE4 NODE_SWITCH:: 
OOSE8 OWNER_SWITCH:: 
OOSEC PRIORITY SWITCH: 
O0SFO PROCESS_SwITCH:: 
005F4 QUEUE_Swi iTcHs: 
00S5F8 REMOTE_ID SWITCH: 
OOSFC STATUS_ silTCH: 
00600 TERMINAL. “Sui CH:: 
00604 TYPE “switchs: 
-BLKB 
00608 VIC SWITCH: : i 
0060C UIC_GROUP SWITCH: : 
00610 vIC -MEMBER SwiTc 
00614 USER_SWITCH:: 
00618 SELECTED:: 
-BLKB 
0061¢ TOTAL SELECTED: : 
-BLKB 
00620 TOTAL_REJECTED:: 
~BLKB 
00624 SORT_KEY.SIZE:: 
00628 DATE_HEADER: : | 
BLKB | 
0062C STATUS_ Text PBUFFER: 


SA 


Pe ee ee ee oe ee a ee 
ee 


Pe a a a a See 
oe 


0067C UIC_BUF: 
‘BLKB 67 
o06BF “BL kB 
CO A_DATE_BU 
math ee 
00000017 os A_DATE vist: 
3 
00000000 ADDRESS A_DATE _BUF 3 


NUMERIC_DATE:: 


At o00 seyee co-108e 28:36: ; TTT Sn acts eee 


a's i oe eo oh ose Th ine 
tr \ 


0000000 Bere $_DATE visti: 


90000000" ODRESS , DATE _BuF 
44 -~ 2: Beat, DATE _BuF 
70€ MONTH_DESC: , 


LONG 
bo00000s, borte DAY nese APRESS S_DATE_BUF +5 


LONG 
00000000° pore "ADDRESS S_DATE_BUF +8 
71C WEEKDAY: : 


K 
00000001 00720 wEEKDAY_DESC:: 


LONG 1 
$o000003. $0738 HOUR_D pene ome 


00000000° sADDRESS A —DATE _BUF +12 
$0786 MESSAGE _b 


ESC:: 
KB 
00# 00738 REPORT wba FAO:: 
BYTE 0C3) 
02 007 -BY iE 
ti REPORT “HORDE FAQO:: 
-BYTE C3) 
02 00743 “BYTE 
744 BL KB 
004 00748 REPORT_HDRS_FAO:: 
BY ve (3) 
02 ne *BYT 


-BLKB 
REPORT_DET _FAO:: 


8 
02 ry -BYTE 
8 REPORT_VALUE:: 


.BLKB 
00700 REPORT ITEMS: : 
007D4 BUCKET_SiZE:: : 
00# 007D8 SUM_KEY FAO: 
BYTE (3) 
02 sofee “Bvt 
oc LKB 
7E0 SUM_KEY <VALUE: 
00858 DATE_DESC_ADDR:: 
BLKB 


(3) 


120 
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1 
14-Sep-1984 DISKSVMSMASTER: CACC. OSRCSACC. B32;1 (5 \ 
7FFFFFFF FFFRFFFF QO85C BEFORE_DATE:: | 
LONG “1, 2147683647 : 
00000000 00000000 00864 SINCE DATE: 0. @ 
00000000 00000000 0086C LAST _patés: Long 0, 0 
7FFFFFFF FFFFFFFF 600874 FIRST ATE: 
LON 6 » 21474683647 3 
0087C SORT KEY. COUNT: : 
7BLKB 3 
43 “BLK KB 
Mitt SORT_TABLE: 
“BLKB 88 
00808 SORT ~INDEX TABLE: 
008E3 -BLKB 1 
008E4 SUMMARY UIC: 
-BLKB 4 
-EXTRN ACC$_INVACCREC, ACC$_TOTAL 
-EXTRN ACCS"MERGE, ACCS_INPOT 
-EXTRN ACCS$~TITLETRUNC 
~EXTRN ADD SYMBOL, ALLOCAT 
-EXTRN FIND WATERMARK, HANDLER 
EXTRN LIBSADDX, LIBSCVT_D 
-EXTRN LISSCVT_HTB, LIBSCVT_TIME 
EXTRN LIBSDAY, LIBSFILE_SCAN 
-EXTRN LIBSICHAR, LIBSLOOKUP_KEY 
-EXTRN LIBSSUBX, LIBSSYS_ASCTIM 
-EXTRN LIBSSYS_FAO, LIBSSYS FAOL 
- -EXTRN LIBSTPARSE, LOG FILENAME 
EXTRN LOOKUP_ SYMBOL MAP QUAL IF IERS 
“EXTRN PARSE OUTPUT FILES 


OrT 
SEXTRN SCAN SyRaOCs, ECORD 
~EXTRN SORSEND SORT SORSING! _SORT 
-EXTRN SORSRELEASE REC 
“EXTRN SORSRE TURN REC SORSSORT _MERGE 
-EXTRN STRSAPPEND-. STASCORP ARE 


-EXTRN STRSDUPL_CHAR, STRSLEFT 
SEXTRN STRSPREFIX, STRSREPLACE 
“EXTRN STRSRIGHT, STRIP_NEGATOR 
“EXTRN STRIP_TRAIL, SUMMARIZE 
~EXTRN SYSSNOBT IF TRANSLATE_STATUS 
-EXTRN WRITE_BAR_GRAPH 
-EXTRN WRITE_BINARY, WRITE = SURPARY 
“EXTRN WRITE-TOTALS. INPUT | 
“EXTRN INPUT “FAB, INPUT 
[EXTRN OUTPUT FAB, OUTPOT 
SEXTRN REJECTED_FAB, REJECTED. RAB 
*EXTRN WORST. ERROR 
.PSECT CODE,NOWRT,2 
0000 00000 ACC: - WORD save ne nothing : 1238 
6D 0011 CF DE 900¢ MOVAL > 1265 | 
0000v CF 00 FB 0000 CALLS #0. ace _CONTROL > 1288. 


3; Routine Size: 


41 bytes, 


07 50 
50 000000006 00 


7€ 
000000006 00 


Routine Base: 


5 
1$-sep “15 
4- Sep-1984 


[ces 
SOTO hl 
nm 


o 
So 

oOo VNOoOooCo UM 
Coooo 
> oO 


7€ 
5E 
046 AC 
03 


FwooFrorow 
ooooo 
ooooo 
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CODE + 0000 


PM 


Be F739: 4 


cTAT 
WORST S ERROR, RO 


Sorg nothing 
= (SP) 


sP 
4(AP), =(SP) 
#3, HANDLER 
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; : 4 ! § ! ROUTINE ACC_CONTROL = ! Main control routine ; 
: 471 1306 1 !4¢ : 
; 47 1305 1 ! Functional description : 
3 47 ~ 1 1! ; 
: $746 1307 1! This is the main control routine for the ACC facility. : 
3; «64475 1 BS 7! It calls the main loop. Any errors encountered : 
3 ore ! 2 : will be passed back to this routine. ‘ 
; 478 1311 1! Calling sequence ‘ 
; 479 1 \§ 1! ; 
: 4 315 1! ACC_CONTROL () : 
> 481 1314 1! ; 
- § ¢ 1315 1 ! Input parameters : 
; 48 1 1 1 ! : 
3 rt 1) : \ ' AP = Address of argument List passed from CLI : 
; 486 1319 1 ! Output parameters : 
: 487 1320 1! : 
: 488 1321 1! None : 
; 489 1 ; 1! ; 
; 490 1 1 ! Routine value ’ 
; 491 13246 1! ; 
; 49 ine 6S Worst error is returned. > 
: 49 1 $ a : 
3 494 1 1 !-oe- : 
; «4495 1328 (1 : 
: 4% 1329 BEGIN ; 
3; 497 1330 : 
; 498 1 ‘3 EXTERNAL : 
; 343 : 3 worst_error; ! Worst error status : 
3 23) eee LOCAL : 
3 208 ! 35 cone, Mile_count. = pease Ss sqve input file count : 
3 esc: vector (2, long], ' Work descriptor : 
; 504 1339 scan_context: initial( 0 * : LIBSFILE_SCAN sticky filespec context : 
3 305 1338 status; ' Local variable used as a ‘‘catch-all : 
; 506 1339 ' pucket for RO values returned by 3 
5 ryt4 130 ! called procedures : 
; 509 1346 : 
; 510 134 input_desc: bblock fdscskd bln ! Allocate dynenic descriptor 3 
; 31) ! ? preset({[dsc$b_class] = dsc$k_class_d); : 
$ 18 i 74] : 
3 «6516 1 3 
3 giz 1348 ! : 
; 516 1349 ! PROCESS THE COMMAND LINE --- " : 
3 «517 1329 ' Call CLI interface routines to parse the command line. Set up 3 
; 318 1382 internal tables as needed for further processing : 
; 520 135 : 
3 351 1328 Perform (parse, commend ()); ! Analyze the command Line i 
3 538 1 28 : 
: 526 135 ‘ 
3; 525 1358 ‘ 
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' 
'PARSE INPUT pause oo 
: Get the | st of input files 


he CLI. Call fae SCAN 
with each T 


t 
SCAN will handle wild-carding 
ILE for each matching file 


and stickiness and call PROC F 


from 
nput file name. FILE 

ESS_ 
that is found. 


while a ("INPUT', input _desc) do 


input_fab Cfab$Sb_fns] = .input_desc (Cdsc$w_length]; 
fab$l_fna] = .input_desc [dsc$a pointer); 
fab$l_ictx] = msg$_séarchfail;! Coad the error messens 


e_scan ( ' Call file scanner wi 


3 1 : 
; 1 : 
3 1 : 
: 1 é 
3 1 $ 
; 1 : 
3 1 : 
; 1 z 
3 1 ; 
3 1 : 
3 1 $ 
5 1 3 
3 1 3 
3 9 1 i : 
; 540 1 nput_fab ! address of FAB . 
; 541 1 process. tile, ! success action routine : 
; 2¢§ 1 og_ filename ! error action routine : 
3 54 1 16 scan_context); i file scan context ; 
3; 544 137 END; 3 
; 545 1378 3 
3 e¢8 1379 3 
: 56 1380 3 
; 548 1381 } 3 
; 549 1 $ ! SAVE INPUT FILE COUNT -- 3 
; 550 138 ! The input file count is simply the highest value of the file 3 
3 39) 1384 : number field that is prepended to each record to be carried 3 
3 23¢ 1385 : through the sort. Save the contents of this field prior to 3 
3 3 1 Hf] ; beginning the sort. 3 
; 554 138 ! 3 
; 555 1388 3 
; a28 1389 $ 
; = 1390 BEGIN : 
; 558 1391 BIND input file_count = key_buf + .sort_key_size; ; 
: 559 1 4 temp_Tfile_Count = .input_file_counf; ! Save input file count 3 
; 560 139 END; 3 
3 636) 1394 3 
3 206 1395 : : : 
; 56 1 38 ! If no files were selected, then simply return. 3 
: ge 1398 3 ir til EOLU 0 
3 -temp_file_count 3 
3 266 1399 TH 3 
3; 5 1400 RETURN TRUE; 3 
; 568 1401 3 
3 238 1406 ! 3 
3 0 140 ‘COMPLETE THE SORT -=- 3 
3 (ST 1404 : If sort processing is active then trigger the merge phase with : 
3 276 1405 : a call to SORSSORT_MERGE. When the nerge reaches the final pass, : 
3; $7 Jens : et the sorted records with calls to SORSRETURN_REC and dispatch 3 
3; 574 140 : hem to the output routines. : 
: 75 1408 ! 3 
3 6 1409 3 
2s. Sr 1410 3 
; 378 1411 ; : 
5 » 116 If PRESENT (SORT) then ! If sorting is active : 
: 38 1414 BIND input_buf = key_buf * rec_prefix; ' Locate record 3 
; 582 1415 LOCAL temp; ! Sort insists on a bucket 3 


<> | 
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; 3 14 3 
; ¢ 1? $ if PRESENT (LOG) then signal (acc$_merge, 1, .total_selected); : 
: 14 5 perform (sor$sort_merge ()); ! Do merge phases : 
; 1421 desc fo} = 512; ! Initialize descriptor ; 
3 +4 1 § desc (1) = key_buf, : 
; pa 1? ¢ while protus = sor$return_rec (desc, temp) ! while input remains : 
; 38 1426 4 if PRESENT (BINARY) then ; 
; 594 14 pectere (write binary (input _buf, output_rab)) : 
; 595 1426 ELSE BEGIN : 
3 38 1429 perform (process_record (input_buf)); ! handle formats ; 
$ 9 14350 perenne (show_record (input_buf, output_rab));! -call output routines 3 
; 598 1431 4 ND; 3 
3 inp 1? ; END; : 
; 601 14 if not (.status eql ss$_endoffile) then ! If not normal end then 3 
5 one 1? 5 signal (.status); ! signal the user : 
: 604 14 $ per tere (sor$end_sort ()); ! End the sort F 
; 605 1438 ND; : 3 
: 809 1200 3: ; 
> 608 1441 2 | SET UP REPORT -- : 
; 609 1006 ; Establish the ‘From'’ ‘To’ dates for the report. If explicit ; 
; 610 144 ‘ dates were specified then use them, else allow the earliest F 
; 611 1444 } and latest dates incountered stand. 3 
2 ee | 
; ete 1447 If PRESENT (SINCE) then MOVE_QUAD (since_date, first_date); 
; ei$ 138) If PRESENT (BEFORE) then MOVE_QUAD (before_date, last_date); : 
> 618 1451 : 
: 836 1088 3 
> 621 1454 2 | DO SUMMARY AND TOTALS -- ; 
= § 1455 ‘ If /SUMMARY was specified then call the routines that 3 
3; 6 1028 : output the summary report and a totals page. : 
i 85 1288 8° ; 
: 6 6 1459 3 1f PRESENT (SUMMARY) ' If /SUMMARY ; 
3; © 1460 then if PRESENT (BAR_GRAPH) ! If bar graphs : 
2 @ 3 1461 then BEGIN 3 
; 6 P 1406 perform (scan_symbols ( 3 
3; 6 146 summation_table, find_watermark)); ! Find all high watermarks : 
3; 631 1464 ! incru i to .report_items : 
s © § P 1465 perform (scan_symbols ( ! Graph each summed field : 
3 $ 1668 “ summation_table, write_bar_graph)); : 
: 635 P 1468 else perform (scan_symbols ' Call write summary for ; 
; 6 Hg (summation_table, write_summary)); ! gec® summation record 3 
i; 6 1470 Perform (write_totals (J); ! Write a totals page 3 
ee : 


— 
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; 640 1473 ; 
; e 1474 : 3 
; 1475 ' LOG RESULTS -- ; 
; 64 1008 ' If Logging woe requested and the saved input file count is ; 
3 oe 1ef greater than 1 then display the totals message. : 
3 ong 1298 3 
; 64 1480 ; 
3 oe8 1481 if PRESENT (LOG) and ; of Logging requested : 
; 64 14 ¢ -temp_file_count gtry 1 then ! and more than one input file ; 
; 650 14 signal (act$_total, 3, ! then notify the user with : 
; $2) 1484 -total_selecfed, ! total selected : 
; ¢ 1485 -total_rejected, ' total rejected ; 
; 65 14 -temp_TFile_count); { number of files ; 
> 654 14 3 
; 655 1488 ; 
3 $28 1489 3 
; 65 1490 ' 3 
; 658 1491 ‘CLOSE OUTPUT FILES -- : 
; 659 1338 : Assign the error messages to be used and close the output : 
; 660 149 : files, The files are closed only if they have been created. : 
3 $8) Vee Creation is inferred if contents of stream pointers is non-zero. : 
3 $68 re | ; 
; 664 149 3 
; 665 1498 Output_fab Cfab$l_ctx] = msg$_closeout; ! Assign error message F 
3 $96 1338 Rejectéd_fab Cfab$i_ctx] = msg$_closeout; ! Assign error message : 
; 668 1501 If PRESENT (OUTPUT) and PRESENT (BINARY) ' If local FAB is open : 
; 669 P 1206 then perform (S$close ( ! «then close it $ 
; 670 P 150 fab = output_fab, ! -eaddress of FAB 3 
3 ta 1308 err = log_filename)); ! e-error action routine : 
3 ore 1506 If PRESENT (REJECTED) ' If secondary output open F 
; 674 P 1507 then perform ($close ( ! -then close it 3 
; 675 P 1508 fab = rejected_fab ! e-address of FAB 3 
; 676 1509 err = Log_filenames); ! =-error action routine : 
; 677 1510 3 
; 678 1511 3 
: 679 12i¢ ‘ 3 
; 680 151 'RETURN TO USER --- 3 
; 681 1514 : Return to the user. Variable WORST ERROR is maintained b 3 
3 ose 1515 : the error handler (see routine HANDCER). If no messages ave : 
; «68 1218 ; been signaled then the initial value of WORST_ERROR, SSS_NORMAL, : 
; 684 151 : will be returned. : 
; 685 1518 : 3 
3 on8 1519 3 
3 rr t4 1331 Return .worst_error; ! Return contents of WORST_ERROR : 
; 689 1522 END; : 
8 9 -BLKB 3 F 

00 00 00 54 55 50 af 49 C P.AAB: .ASCII \INPUT\<0><0><0> ; : 

8 0003 00 eAAA: LONG 5. 3 3 

0000000" 000 «ADDRESS P.AAB 3 3 
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000000006 
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000000006 
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18-529-1986 :36:11  VAK=11 Bliss-32 vé 
127808-1 38 Fiat: l} DISKSVMSMASTER: chee? sae ACC.832;1 
.PSECT SOWNS,NOEXE,2 
00# 00000 INPUT_DESC: 
02 3 ‘BT 1 © 
$b002 “BLKB 
INPUT _BUF = KEY_BUF 
sEXTRN CLISGET“VALUE, QUALIFIERS 
~EXTRN SYSSCLOSE 
«PSECT CODE,NOWRT,2 
OFFC 00000 ACC_CONTROL: 
~WORD Save R2,R3,R4,R5,R6,R7,RB,RI,RI0,R11 
5B 000000006 00 9€ 0000 V SYSSCLOSE, R11 
SA 90000006 00 9E 99 MOVAB SCAN SYMBOLS, R10 
59 9000 006 00 9€ 09010 MOVAB OUTPOT RAB, R9 
: 00000006 0 9E 00017 MOVAB LIBSSIGNAL, RB 
00000006 9E 00016 MOVAS LOG FILE . 
$ 00000006 00 9€ 0002 MOVAB INPOT FAB+S2. R6 
5 990000006 0 9 Oo¢¢ MOVAB QUALIFIERS, R 
34 0000000' EF 9€ 000 MOV INPUT _BUF, 
E C C2 0003A SUBL2 #12, SP 
: D4 00030 CLRL. SCAN_CONTEX 
CF Q FB 003F CALLS 4&0, PARSE COMMAND 
6A 0 i 0044 LBC STATUS, 58 
0000° CF SF 00047 1$: PUSHAB INPUT_DESC 
AA AF 9F 00048 PUSHAB P.AAA 
90 02 FB OO4E CALLS 3, cL ISGET_ VALUE 
7 005 BLBC—OséR 
66 0009" CF 90 00058 MOVB = INPUT_DESC, INPUT FAB+52 
Ab oe" F D B28 MOVL INPUT DESC #4 . INPOT_FAB+44 
A6 009F 123A F OD 006 MOVL #1042%890, INPUT _F FAB+24 
4080 F ge 0068 PUSHR #*M<R7,SP> 
0000v CF 9F O006F PUSHAB PROCESS. FILE 
CC AG 9F 00073 PUSHAB I 
00 04 re 0076 CALLS #4, LIBSFILE_SCAN 
C8 11 00070 BRB 1$° 
50 8 AA 9 OO7F 2%: prey KEY_BUF, Hy 
20 061C C4 CO 0008 ADDL2 SORT_KEY SIZE. RO 
6 60 DO 000 MOVL (RO)> TEMP_FILE_COUNT 
04 12 000 BNEG 3$ 
50 1 0 MOVL #1, RO 
4 00090 RET 
02 AS 091 3$: TSTB  QUALIFIERS+2 
7E 18 00094 BGEQ 12$ 
AS 02 £1 00096 BBC r) QUALIFIERS+1, 4$ 
0614 DD 00098 PUSHL  TOTAL_SELECTED 
1 DD 0009F PUSHL #1 
000000006 8F DD OO0A1 PUSHL PACES RGE 
8 3 FB OO0A7 CALLS 43. LTB$SIGNAL 
0 6 FB AA 4$: CALLS @ SORSSORT MERGE 
Bl 5$: LBC STATUS, 11$ 
AE 0209 F 3C 000B4 MOVZ2WL #512, BESC 
AE FB Ad 9E OOOBA VAB_ KEY_BUF, DESC+4 


al 
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Be OME SF eo: ine DESC 7 
000000006 9 F CALLS + SORSRETURN REC ; 
; a oe ; 
ele . 
0D 5 EY be BBC 33 Us. FIERS, 7$ : 14 6 
0210 8 6B PUSHR  #*M<R4,R9> t 16 
000000006 00 : Fe DOODA CALLS Hf “RITE BINARY : 
4 oD 13 7$: PUSHL 3 1429 
0000v cf 1 FB OE CALLS pRoC ii RECORD : 
1 0 b DEA BLBC $1 i, : | 
0210 &F 68 OODED PUSHR anche + 1430 
000000006 00 . Fe 0 Fi CALLS Res “econ 3 
C4 E FB 8S: BLBS Sear TUS, ; | 
4 000F8 RET ; 
00000870 8F D4 at 98: CPL suervs- #2160 + 1434) 
bd 19 PUSHL STATUS : 1635. 
£8 1 FB 00107 CALLS #1, LTBSSIGNA ; 
000000006 00 re O10A 10$: CALLS #0, SORSEND_ SORT : 1437. 
4A £9 00111 11$:  8LBC STATUS ; | 
07 02. AS 0 a 0114 12$: BBC a5, HOALIFIER RS+2, 13$ + 1447 
086C C4 085¢ cs D 00119 MOVa SINCE DATE, FIRST_DATE : 
07 65 2 a 0120 13$: BBC #2, QUALIFIERS, 12$ + 1449 
0864 C4 0854 C4 7D 00124 MOV BEFORE DATE LAST DATE ; | 
28 03 AS €9 00128 148:  BLBC QUALIFTERS*$ + 1459 
16 65 01 EI 012F BBC #, FIERS, 15$ t 1460 
000000006 00 SF 00133 PUSHAB FIND. vat TRAARK + 1463 
F DD 00139 PUSHL #63 ~ : 
A : FB 01 CALLS SCAN, $yMBOLS : 
9 ; 001 : BLBC STATUS ; 
000000006 0 of gia PUSHAB unite. fy "GRAPH > 1466) 
000000006 00 9F 00149 15$:  PUSHAB WRITE, SUMMARY + 1469 
F DD OO14F 16$:  PUSHL : 
é FB 0151 CALLS #2, SCAN ofyNeors ; 
6D E9 00154 BLBC = STATUS : 
000000006 00 g FB 4 717%: CALLS 30 Ue ine TOTALS + 1470 | 
6 E9 OO15E 188: BLBC ST TATUS, : | 
17 01 «A5 g E1 0016 BBC #2. QUALIFIERS+1, 19S > 1481) 
~ 01 D1 0166 CMPL EAP. FILE_COUNT, #1 + 1482 
12 1B 0016 BLEQU 19% ; 
7 pp 0168 SHL TEMP_FILE_COUNT t 1486 | 
7E 0614 (C& 7D 001 va TOTAL. SELECTED, -(SP) + 1484 
3 DD 001 SHL # + 1483 
000000006 8F DD 00174 PUSHL #ACC$_TOTAL ; | 
8 5 FB OOI7A CALLS #5 Jes IGNAL ; | 
00000006 9F105A 8F 00 0017D 198:  MOVL #104 410, OUTPUT _FAB+24 + 1498 
0000006 9F105A 8F 00 001 MOVL  #10424410, REJECTED FAB+24 > 1499 | 
12 01 A E1 001 BBC » QUALIFIERS+1, 208 > 1501 | 
OE 6 £1 0019 ¢ #3. QUALIFIERS, 20 ; | 
BD 19¢ PUSHL > 1504. 
000000006 F 001 PUSH OUTPUT FAB : 
68 Fe 1A CALLS #3. SUSECLOSE ; | 
1A E 1A7 BLBC : 
OE 02. AS 1 OO1AA 208 BBC sth Myer fF TERS#2, 228 > 1506 


vOs-000 Eee GEHL ANGUS accsose.1 Pd 


7 PUSHL R7 : 1509 
000000006 SHAB R JECTED FAB J 

#o, SY SE ; | 

1$: STATUS : | 

0 000000006 BD 22$: VL -WORST_ERROR, RO : 1520. 

C4 238: ; 1522) 


; Routine Size: 453 bytes, Routine Base: CODE + 003C 
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12780871 98e $Fi89:h) SPE ROUMGMASTER Lack SACTACC.832;1 - 3} 
ROUTINE PROCESS _FILE (FAB) = 
' fe ee 
Functional description 


This routine processes one input file. It is called as an action 
routine from FILESCAN. 


Input parameters 


Output parameters 


7 

705 Record processing routines are called as necessary. 
18 ony errors encountered are RETURNed immediately. 
434 TRUE is returned on a normal exit. 

71 

71 

71 

71 

71 

71 

fi 

71 input_xabfhc: BBLOCK ! Input file FHC XAB block 
71 key_table; 


BIND 
input_file_ count = key_buf + .sort_key_size, 
record_number = key_buf + .sort_key_size + 4, 
input _buf = key_buf + .sort_key_size + rec_prefix; 


status: bblock bong. ' Local ‘catch all’ status return 
2. long); 


desc: vector ! Temporary string descriptor 


PAEDX®PEAAAA AAA & PPLE EE 


A ahah ah ah Ab Ah Ah db Abed dh Ab Ah Ab eh hh hh ah ih hh hh hh dh hh Ah ehh hb dh eh eh oh bh hb ehh ahh ab beh ah hl 


sort_init: initial (false); ! Sort initialization flag 


Aan 
SOF ORS Sao USN OOM NOP WN Owe 


5 
| 
5 


' 
ESTABLISH THE BUFFER ADDRESS -- 


input_rab Crab$l_ubf) = input _buf; ! Set input buffer address 


Sp be ip. Bin Mn. nin, i Be a, Pe ee ee ee ed 


' 
! OPEN AND C CT --- 

; To the input accounting file 
: are detected. The error hand 
i 
i 
i 


SFUSUSUSUS SUSU 


NNN NNO OO 


Exit immediately if any errors 
rs will have been invoked if an 


NOUSWN OO 


i 

error occured, and the user will have been nat éveg. The error 
message used by the LOG_FILENAME routine is drawn from the 

e 


CTX field of the FAB or INPUT_RAB as needed. 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
j 
1 
1 
1 

BEGIN 

MAP 

ab: re ock; ! Define as a block structure 
tab f bblock ! Defi block struct 
EXTERNAL 
related_nam: BBLOCK Os ! Related NAM block for input parse 


nnn 


IN 
ooo 
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$F 
: 


; 74 1 

; 74 1 fab (fabs gcted : msgs .o ! Load the qrror mess. 
..F 1 ¢ perform (Sdpen (fab=. “13, oritee. filename) ) ! OPEN the ngu ile 
; g perform ($connect (rab=input_rab, err=log_ tilename)); i CONNECT to input file 
: 7 1585 2! 

; 756 1 i eae | THe SORT -- 

3 5 ! f sorting was requested then initialize the sort. 

; 7? 1 

3 f : : (sort_key_count+2)<0,16> = .sort_key_count; ! eee HACK 

; 760 1 3 If PRESENT (SORT) AND (.sort_init eql false) then 

; 761 159 BEGIN 

; 76 1594 LOCAL 

; 76 1595 irl, ebk; 

; 7646 1 1 irl = laout., xabfhe xabSw_ et -sort_key_size + rec_prefix; 

: Tee 1398 Seat deat aaab tine prabel edt i tk t+2, Url, ebk)); 

3 signa erver sor$init_Sort (sort_key_count+2, irl, e 

3 re 1599 sort_init = true; 

; 768 1600 ND; 

3; 769 1601 

; 770 1908 

; 771 160 

3; 77 1604 ‘ 

WR vc 1605 {INITIALIZE OUTPUT FILES =-=- 

3 774 16 ! The ag by of the output files has been deferred until now 

3 7 160 i so that a fully parsed input file name would be available (as 

3 ere 1608 i a related file name) for default file name components 

3; 69 1609 ! 

3; 778 1610 

; 779 1611 If .input_file_count eql 0 the ! If this is the first pass 
3 ree 1e1¢ signal if_efror (parse_ cutout. files ()); i then open the output files 
3 44 + a input_file_count = .input file_count + 1; ! Bump the file count. 

; F 1918 

: OR 161 

3 res 1819 

3 7 1620 iRESET THE RECORD COUNTERS-- 

3; 789 1621 : Reset the file-relative record number such that records in each 

3; 790 16 § : file will be numbered in ascending order beginning with one. 

3 a4) 19 z H Reset the selected count so it is also on a per-file basis. 

3; 793 1625 

3 794 16 $ record_number = 0; ' Reset the record number 

3; 795 16 selectéd = 0; ! Reset file select count 

; £38 16 3 

: % 18 

3 199 1684 

; 800 16 § } 

3; 801 16 {READ on & Lee? UNTIL EOF --- 

; 80 1634 : read the file until EOF or an error is detected. Process 

3 bi 2 5 wh record as specified in the command Line 


5 
HESeoctOBe FHM) WECAUABASSHEEZe°SRace.oses1 °° 


athe plots = $get (rab=input_rab, err=log_filename) do ! Read a record 


<2 


else 
if record selected (input_buf) 


en 
. PRESENT (SORT) 


signal_if_error Lretpose, te_sert (input_buf,sort_table,key_table, 
ey. 


~ PRESENT (BINARY) 

on signal_it_error (write_binary (input_buf, output_rab)) | 
sg PY NE: (show_record (input_buf, output_rab)) 

°° if PRESENT (REJECTED) ! If secondary stream open | 


en 
signal_if_error (write_binary (input_buf, rejected_rab)); 


record_number = vocere number ¢ 1; ! Update the record number 
: Ja, process_record (input_buf) ' Analyze the record 
1 begin 
1 desc 9 = .input_nam ([nam$b_rsi); ! then notify the user 
1 eee = ,input_nam Lnam$i_rsal; ! with file and counts 
: “re t msg$_readerr, . dest, acc$_invaccrec, 1, .record_number ); | 
1 
1 
1 
1 


CON 


el 


NOUS wiry 


el 


wn SRIF APU OCR NOE UNO Oe 
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Fab Cfab$i_ctx) = msg$_closein; ! Assign error mes 


; sage 
Perform ($tlose (fab=.fab, err=log_filename)); ! Close the input file 


SSSSSSSSSSCccCCCCCCOS TESST SSS Tce. 


6 Total_selected = .total_selected + .selected; ! Accumulate totals 

ere Total_rejected = .total_rejected + (.record_number - .selected); 

67 ' 

674 'CHECK STATUS AT END OF LOOP --- 

675 ! Now ghock the return status to make sure it was a normal EOF. If not, | 

O76 ! notify the user. 

67 : 

iH 

6 If not (,status eql rms$_eof) ! If any status other than 

e then return .status; ! expected eof, return it 

6 | 
CLOSE me 


oa 


WM wnr 


Input file grocessing is now complete. Revise the stored error | 
erste (which is passed to the error routine via the ‘user context‘ 
field [CTX] of the FAB) and SCLOSE the input file. | 


ee ek kk tt et nt a a a a ts = 2 = 2 St 4 YH 


ww PUSS Ny ate apes 
a SoS NS Seo rr OSe OU Wr 


6 

bs If poe sent (LOG) then ! If logging requested 

O34 desc £0} = .input_nam [nam$b_rsl); ! then notify the user 
69 desc = .input_nam [nam$l_rsaj; ! with file and counts 


WEssto-t9ge @EBte 1) MIT aisee de V4sOeTee 


3 1 ignal (acc$_input, 3, desc, .selected, .record number - .selected); 
; 169 Return true; 

3 1698 

; 16 END; 


.PSECT $OWNS,NOEXE,2 
00000000 00008 soRT_iniT: 


ATED_NAM INPUT XABF HC 
TABLE, SYSSOPER 
TRN SYSSCONNECT, SYSSGET 
.PSECT CODE,NOWRT,2 
OFFC 00000 PROCESS_FILE: 


os 
mmm 

= 
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.WORD Save R2,R3,R4.R5,R6,R7,RB,R9,R10,R11 
00 9 MOVAB INPUT_RAB, R11 
00 MOVAB = INPUT~NAM+3 R10 
00 9E MOVAB LOG FILENAME, R 
D0 OE MOVAB QUACIFIERS, RB 
i MOV SORT_KEY_SIZE, R7 
: ¢ SUBL2 #16,°SP 
. MOVL  SORT_KEY Ize RO 
MOVAB KEY_BUFCROJ, 5 
4 MOVAB KEY "BUF +4 Rb}, Rb 
4 MOVAB KEY BUF +8 ROI, R4 
24 54 D MOVL R4,”~ INPUT_RAB+ 
AC D MOVL FAB Re 
18 F D MOVL  #10424474, 24(R2) 
04 BB PUSHR #*M<R2,R9> 
000000006 FB CALLS #2, SYSSOPEN 
b BLBC = STATUS, 
ny") PUSHL R9 
oD PUSHL R11 
000000006 00 g Fa CALLS #2, SYSSCONNECT 
1 Fa LBS STATUS, 2$ 
025A C? 0258 (C7? MOVW § SORT_KEY_COUNT, SORT_KEY_COUNT+2 
03 Ag 8 ™SiB OQ ALTFGERSS > 
0000' Ht : Pere RT_INIT 
1 BNEQ * 
000000006 i \ MOVZWL INPUT_XABFHC+10, RO 
38 4 c6 ADDL sort REY SIZE, RO 
04 AE 08 Ad - MOVAB (ROT, LAL 
6E 000000006 Q D VL «INPUT XABFHC+16, EBK 
8 AE OF PUSHAB ERL 
o2sh f F 5 SORT_KEY_COUNT+#2 
000000006 ; F CALLS #3, SORSINIT_SORT 
D VLE —s- RO, STATUS 


sti ee ee he NC =+ picerigen | rc 
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D 3$: TSTL 
000000006 
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4$: BLBS 
5$: INCL 


’ 


oS 
o 


AUuOWNW OVIMNOVIVI ES OO FP VI1019 COW 
POH FA M®WOND ONAOWUIWOOOUn ww 
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6$: PUSHL 


000000006 
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0000V 
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1 
000000006 PUSHL M#ACCS_INVACCREC 
14 DESC 


OO9F 1082 
000000006 00 


WOoODOCr woe 
oon m~n— 


#10424498 
CALLS eee LIBSSIGNAL 


wv 
™ 


RG 
CALLS #1, RECORD_SELECTED 
TSTB. ALIFIERse2 


0000v CF 
02 


F9DC 
ooonprre 
025¢ 
000000006 00 


08 68 
000000006 


600000006 


CALLS #4, RELEASE_TO_SORT 


10$: BBC #3, QUALIFIERS, 11$ 
OY{PUT_RAB 


BK 13$ 
11$: | PUSHAB OUTPUT_RAB 
CALLS #2, SHOW_RECORD 


12$: BBC #2, QUALIFIERS+2, 8$ 
PUSHAB REJECTED_RAB 
13$: PUSHL R4 
CALLS 2, WRITE_BINARY 
68 14$: MOVL RO, STATUS 
68 BLBS STATUS, 8$ 
6f 15$:  PUSHL STATUS 
7 CALLS #1, LIBSSIGNAL 


000000006 00 


B4 02 AB 
000000006 


000000006 99 


DOIWOWS 7 D9 BH DO MMO ODS - DOO VCC OF OWOSSO WOW DS FLO" WODMNW0 0 
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“ome "oom" O— OM = NFO OOO OMS - "OTC OU 
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000000006 00 
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Seg ERS DRICE TaN JC MEUSE SS TSP RL 


« 
ACC 1$-sep-1 3:36:11 VAX-11 Bliss-32 V4.0-74 Pa 0 
755-000 12-3 08=1 oh $Fi28:h) PIC SUMMASTER SC ACE sec SACC 832: 1 al re 
50 53 v0 177 MOVL STATUS, RO | ; 
4 QO17A RET wig 
18 = A2 009F 1952 F DO 0017B 16$:  MOVL #10624402, 24(R2) + 1667 
0204 8F 8B 001 PUSHR #*M<R2,R9> + 1668 
000000006 0 Fe 1 CALLS #2 SySSCLOSE | : 
4 £9 001 f BLBC ATuS ; 
5 F4 A? DO 001 MOVL SELECTED, RO | + 1670 
, ae 0 CO 00195 ADDL2 RO, TOTAL_SELECTED ! ; 
51 6 ¢ 199 SUBL RO, (R6), i + 1671 
es 1 €0 0019D ADDL2 R11. TOTAL REJECTED , : 
0001827A  8F 5 Di OO1A1 CMP STATUS, #98 > 1679 
94 13 O1A8 BEQL 7 : 
50 5 0D 1AA MOVL STATUS, RO } : 1680 
04 OO1AD RET ; 
1D 01 a8 02 €1 OO1AE 17$: BBC #2 QUAL IF LERS*1 18$ | : 1690. 
08 AE 6A 9A 0018 MOVZBL INPUT_NAM+3, DESC | : 169¢ 
OC AE 01 AA DO 001B MOVL INPUT"NAM*4. DESC+4 + 169 
03 8B 001BC PUSHR #*M<RO,RI1> : 1694 
10 AE 9F OO01BE PUSHAB DESC | ; 
03 DD 001C1 PUSHL # ; 
000000006 8F DD 001C3 PUSHL #ACC$_INPUT : 
000000006 00 05 FB 00109 CALLS #5, LYBSSIGNAL cer | 
50 01 p00 00100 18%:  MOVL #1, RO + 1697 
04 00103 19$: RET > 1699. 


3 Routine Size: 468 bytes, Routine Base: CODE + 0201 
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; 8 i : ! ROUTINE PROCESS_RECORD (BUFFER) = 

: A 7 é jones 

: a 7 6 ; Functional description 

: 75 17 1} This routine is called to analyze a record from the system 

3 f 1? : accounting file. 

: 4 1708 \ Input parameters 

; 880 1711 «1 i BUFFER = Address of a buffer containing the creer to be detailed. 
: 1 ar 1! The record can be of any type from the V2 and V3 accounting 
3 Hr nat : formats 

: re ay : Output parameters 

: HH 1719 1: Based on the contents of the record, My gy are established. 
; 887 1718 1! These values are used in later Feds in ng: 

; 888 1719 1:5! Any errors encountered are RETURNed immediately. 

; 889 1720 1! TRUE is returned on a normal exit. 

; 890 1721 1! 

ia mi 

: 89 1724 2 BEGIN 

: fos 1758 5 map 

; 896 17 $ buffer: ref bblock; ' Define buffer format 
BE HRB SB voc 

; 899 1730 day_number, ' Temporary output of LIBSDAY 
: 900 1731 day_time; i Temporary output of LIBSDAY 
: 901 1736 

2 cae 

: 44 1735 Initialize descriptors 

: 906 1739 customer = 0; 

: 907 1738 record ~Longeh = 0; 

: 908 1739 record_type = 0; 

: 909 1740 record. subtype = 0; 

; 3i9 HH} version = 0; 

: ge 1708 account_desc = 0: 

; 91 1744 account_desc = Q; 

> 914 1745 address_desc = 8: 

3 6915 ice address desc = Q; 

3: 916 174 buf fered_io_ Pst. £93 = Q; 

: 917 1748 buf fered. io. 3c° f = 0; 

; 918 1749 cpu_t ime_des = 0; 

; 919 1750 cpu_ ating. “dese = 0; 

: 920 1751 diréct_id_desc } = 0; 

3; 921 1736 direct_io_des = 0; 

3; 9 ; 72 elapsed_desc [0 = 

: 9 1754 2 elapsed-desc [1 = elapsed_time; 

: 9246 1755 elapsed_time (0 = 6; 

; 925 1756 elapsed_time [1 = 0; 


] 
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Soo wor ene 


ident_desc 
ident_desc (1 
priority_desc (0 
priority_desc (1 
privilege_desc 
0 
1 


SS 


process_desc 
process_desc 
quad_cpu_t ime 
quad_cpu_time 
queue_desc 9} 


process dese {0 
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remote_id_desc 

start_fime_desc 

status dest {0} 
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status_desc 
status_desc 
status_text_desc £0} 


status_text_des 

subtype_desc (0 

subtype ese 1 
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1 8 
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101 4 
1014 5 
1015 B68 
ile 84 
101 848 
1018 849 
1019 50 
1020 51 
1021 26 
10 ¢ 5 
10 54 
1024 55 
1025 28 
10 § 5 
10 58 
1028 523 
594 0 
10 861 
1031 ¢ 
10 § 

10 

10 5 
19 5 

10 68 
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10 0 
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type_desc (1) 
type Coat desc Fo} 
type, “text_ ros" 


vic_ caese desc 
vic b inary” desc i) 


uic_member_desc i 


u 
use?_data_desc 
user “data_ “fs 


wait_time 
working_set =~ £03 
working _set_desc 
hold_biocnt 


potd-eleesed £92 
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pet¢- _pagefits 


hold_pgflpeak 
hold- oo ee 
hold_w 

hold- Peete £0} 
hold_cputim 
hold_volumes 
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version = .buffer Cacr$v_version); 
SEL EC TENey .vereten of 
acr$k_version2): 
perform (process_v2 specgtdt ebuffer)); 
Cacr$k avers ion3t acr$k_Version 
pert erform (process. v3_record(.buffer)); 
COTHERWISE) 


++ se false; 
TES; 


If warseye (REPORT) 
THEN BEGIN 
IF -buf tered io desc [0] neq 0 
THEN BEGIN 
hold_biocnt = ..buffered_io_desc [1]; 
IF .cpu_time_desc [0] neq 0 


Vv 
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AXe- 
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X-1 
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STER: ace sae ACC.832;1 


Par ob) 


ROTOR IS Fea yee ae oe 
vOs~000 18-sep-1984 $:8Fia,  UTediwBaASteascAce sacdacc.esz;1 2% cB 
THEN BEGIN 


hold_cputim [0 uad_cpu_time [0]; 
hold_ _cputim : + “qued" cous time £93: 


IF direct. fo. desc £0) neq 0 
THEN BEGIN 
nod -diocnt = ..direct_io_desc (1); 


hold ahabest Fo} = -elapsed_time 9}; 
-elapsed_ ry : 
: per fore (Libs (d day number, hele d elapsed, day_time)) 
old_elapsed = (.day_time/1000) + (.day. number * 24 * 60 * 60); 
: hold_elapsed 
-execution doce 63 neq 0 
THEN BEGIN 
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hold_execution = ..execution_desc [1]; 
IF .page faults desc [0] neq 0 

ie THEN BEGIN . 

hold_pagefits = ..page_faults_desc [1]; 


F .page file desc [0] neq 0 
_— THEN BEGIN ’ | 
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hold_pgflpeak = ..page_file_desc [1]; 


F .page reads desc (0) neq 0 
THEN BEGIN 
pote pageronts = ..page_reads_desc [1]; | 
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hold _getcnt = ..sym_get_desc (1); 
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F -sym_gionde rite £03 neq 0 
hold }.-.7 = ..sym_qio_desc (1); 
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hold }----7 = ..sym_page_desc (1); 
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-volunes dese £ [0] neq 0 
hold_ alemal = ..volumes_desc (1); 


See 
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ND; 
IF -working. set de desc [0] neq 0 


Ses 


hold. tan * = ,.working_set_desc (1); 
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END; 
If PRESENT (SORT) OR PRESENT (EXPAND_DATE) 
THEN BEGIN 
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: Form an ascii date string in the form: 
i DD-MMM-YYYY HH:MM:SS.CC 
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pervere (LibSsys_asctim (0, a_date_desc, ..date_desc_addr, 0)); 


If PRESENT (EXPAND_DATE) 
THEN BEGIN 


! 
' Calculate day-of-week in binary byte range of 0-6 
' First get total days pange 7 date 

Shift it 3 days to_make 0 = Sunday 

i 
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Convert to modulo 7 
Convert to ascii byte as a temporary hack 


perform (Lib$day (weekday, ..date_desc_addr)); 


weekday = ((.weekday + 3) mod 7) + ‘0’; 


Form an ascii date string suitable for sorting in the form: 
YYYY MM DD 


perform (sys$numtim (numeric_date, ..date_desc_addr)); 
perform Ci teSeye, tee (ad ("!42W !22W !22W"), 


s_date_desc, 
-Mumertc_date (0), 
-numeric_date (1), 
-numeric_date (2 


No output length 
Output buf desc 
Year 


Month 
Day of month 
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END; 


return true; 
END; | 
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DF EXTZ’ #12, #3, aBUFFER, VERSION 3 1852 i 
; wove RSION, R ; 1854 : 
BNE + 185 ; 
a PUSH BUFFER + 185 ; 
i CALL ‘ , PROCESS_V2_RECORD : : 
FG 18: CMPL RO, «#2 + 1858 ; 
F7 BLEQU : 3 
F9 BRW 1$ 3 H 
FC 2S: PUSHL BUFFER + 1859. ; 
FF CALLS #1, PROCESS_V3_RECORD ; : 
04 38: BLBS STATUS, 48 ; | : 
4$: BBs #4, QUALIFIERS+2, 5$ + 1864 : 
10 5$ TSTL BUF FERED_10_DESC + 1866 3 
1 BEQL «= 6 : : 
1 MOVL § @BUFFERED_10_DESC+4, HOLD_BIOCNT + 1868 ; 
1A 68 TTL CBU_TIME_DeSt : 1870) 
1F MOVG  QUAD_CPU_TIME, HOLD_CPUTIM : 1872, : 
4 78 TSTL DIRECT _10_dEs¢ ; 1875 : 
7 BEQL $ 3 3 
9 MOVL § @DIRECT_10 DESC+4, HOLD_DIOCNT + 1877 ; 
; 8$: MOVG ELAPSED“TIME, HOLO_ELAPSED + 1879 ; 
Ist XECUTION_DESC > 1884 | : 
MOVL §§ @EXECUTION_DESC+4, HOLD_EXECUTION : 1886, 3 
3 9$: Ist PAGE FAULTS DESC > 1888 3 
43 MOVL = @PAGE FAULTS DESC+4, HOLD_PAGEFLTS + 1890 ; 
49 10$: TSTL PAGE _FILE_DESC : 1892 3 
4D BEQL 11$ 3 3 
4F MOVL  § @PAGE_FILE_DESC+4, HOLD_PGFLPEAK > 1894 ; 
35 11$: tsi PAGE READS DESC > 1896 ; 
38 MOVL § @PAGE_READS_DESC+4, HOLD_PAGEREADS : 1898 ; 
61128:  TSTL SYM_GET DESC : 1900 ; 
$3 BEQL 13$ 3 3 
6 MOVL § @SYM_GET_DESC+4, HOLD_GETCNT + 1902 : 
6p 13$: STL SyYM_GI0_BESC > 1904 ; 
1 BEQL 14$ 3 3 
73 MOVL § @SYM_Q10_DESC+4, HOLD_QIOCNT + 1906 ; 
19 148: Ist Sym_PAGE -DESC > 1908 : 
P | Py 
7F MOVL § @SYM_PAGE_DESC+4, HOLD_PAGCNT > 1910) 3 
5 15$ Ist OLUMES_DESC : te, 3 
MOVL § @VOLUMES _DESC+4, HOLD_VOLUMES $ 1914 ; 
3 16$ ist WORKING_SET _DESC ; sted 3 
37 MOVL § @WORKING SET_DESC+4, HOLD_WSPEAK ; 1918 ; 
17$:  TSTB  QUALIFIERS+2 : 192 ; 

A BLSS ; 

A TS1B QUALIFIERS+3 ; 

A BGEQ 19 ; 

A? 18%: CLRL =(SP) > 1930 
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+3 
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DESC_ADDR 
DATE Dest 
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ss 
Vie 
DESC 
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ROUTINE PROCESS_V2_RECORD (BUFFER) = 


$33 


311 1 1 3 
tri 37) 4 : 
7114 1978 1 | 3 
3 114 1975 1 ! Functional description 3 
3; 1146 1974 1! 3 
3 1145 1975 1! This routine is called to analyze a record from the system . 
3 118 1378 } accounting file. : 
4 i : 
: 1363 1378 ! : Input parameters | ; 
3 11 ’ 1980 } : BUFFER = Address of a buffer containing the record to be detailed. : 
311 1981 : The record can be any type of record from the V2 format. . 
; 1% ¢ ; : } “= (ACCSW_MSGTYP can have any value) : 
; i ; 19 4 i Output parameters : 
311 $ 1288 1! Based on the contents of the record, values are established. 3 
3 11 19 7! These values are used in Later procoge tng, : 
311 ; 19 1} Any errors encountered are RETURNed immediately. : 
311 1989 1! TRUE is returned on a normal exit. 3 
3; 1160 1990 1! ; 
2 re aaa | 
HS IRE pecem | | 
> 1165 1995 2 MAP | ; 
3 1198 Hb 44 buffer: ref bblock; ' Define buffer block format . 
; 1168 1998 ¢ LOCAL ; 
3 11g 1 day_number, ! Temporary output of LIBSDAY : 
3 1170 000 day_time; ! Temporary output of LIBSDAY 3 
1 ee? fat 
; 1178 008 record type = buffer Cacc$w_msgtyp); | ; 
3 1176 004 SELECT -record_type of 3 
3 1175 005 ET 3 
: 1178 acc$k_logtrm]: ! Login failure 3 
3 117 BEGIN . 
3 EA | O08 type_desc £0) = 7; 3 
311 00 type_desc (1 = yg lit ("LOGFAIL"); 3 
3 1130 010 type_text_desc FO} = 15; 3 
; 1181 1 type_textadesc C1 = uplit (LOGIN FAILURE"); | : 
at i os a i 
; 11 14 Cocc$h_inensg): ! Arbitrary message | 3 
3; 1185 15 BEG! | 3 
3 9% 1 type_desc f 0} = 4; 3 
3; 118 1 type_desc (1 = uplit ("USER"); 3 
3 11 3 type_text_desc Fo} = 12; : 
3 1189 1 type text desc 1 = uplit ("USER Message"); ; 
atts ; ats | ; 
; 1136 § Cacc$k_inttrm): ! Interactive process | ; 
3 1194 4 type_desc fo} 27; ; 
3; 1195 5 type_desc (1 = uplit ("PROCESS"); 3 
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az 


subt ype_desc 
process desc - Subtype_desc 


subt ype_desc i 
ubtype_ desc 


1; 
uplit ¢' Maese fl ie) 
rocess_desc 


ype_text_desc 9} 
type_text_desc [1 


Cacc$k pectin): ! Non-interactive process 


ty pe-dese 43 
type_text_desc 

type. text desc } 
then 


uplit ("Process Termination’); 


7; 
Lit ("PROCESS"); 


uplit sprees Termination’); 


Buffer Cacc$l _ouner NEQ 


BEGIN 


subtype. desc £0} = 10; 
subtype “desc = uplit ("SUBPROCESS"); 
else 


rptves. desc fo} 


4 
4 
4 = 8; 
gubtype. desc = uplit ("DETACHED"); 
rocess_desc (0 -subtype_desc (0); 
process. desc FS j = “subtypes desc (1); 


a et et tt 
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Cacc$k_battrm): ! Batch job 
BEG 


RRARAPAAAAR ERE REE EE 
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| 
V3 
plit (*PROCESS"); 
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type_desc fo s 
ty €. Rey | 1 s 
= 
Hr Eh ee = uplit (BATCH) 
060 process_desc = ,Subtype_desc tb: 
bes process seas! 0 ° ,subtype_ “desc 
O38 type- text_desc 7 ca uplit (‘Process Termination’); 
065 
+4 Cacc$k ~Prtjobd: ! Print job 
06 type_desc (0 = 5; 
+4 3 type gees fi 7 = uplit (' PRINT") 
e text_desc = 
41 9 type~ text desc tS ; = uplit ("PRINT Job Termination’); 
eB om 
44 74 Cotherwise): ! Unknown record type 
re eR cate goes s 7; 
49 7 type- ~des¢ eee = uplit (' ee | 
e text_desc = 
ts 7 rype- text_desc FS : = uplit ("UNKNOWN Record Type’); 
50 0 
51 1 TES; 
52 082 


$F 
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record_lengt 
status_des¢ fo} 
status_dess 
status_text ~Gese 
status text de 


eG 


finish ALY desc 
finish-time_d 
account_dest eta) 


user_desc i 
user_desc 
strip_trai 


acc$k_i 


SELECTU srecerd. 


tt Sen-t9Re 2Be]) ACL BL ise72 4,027 


ghetto Cacc$w_msgsiz); 
putter Cacc$l_finalsts); 


: 
¢ 3 BF gn buffer 
. Status ziese c Status. text desc); 


f Cacc$l_pid); 
acc$l_jobid) = bi b°then a. 


os desc = 4; 
mtryodece £49 = buffer Cacc$t_jobid): 


0 8; 

f§ : buffer Cacc$q. termtime); 
acc$s_ pEcou 

buf fer sccht “account; 
{acc “y desc 

= aces s Usern 

= buff erngne “usernene); 
(user ys» 


type of 


nttrm, acc$k_prctrm, acc$k_battrm, acc$k_logtrm]: 
BEGIN 

BUILTIN emul; 

Hartt ber oH fy > batter Cceedt eovetets 
cout ¢ reatti0 buffer Cace$t weput ial. fret(0), 


quad_cpu_ fee (03); 
page_faults_desc” 3 
page_faults_desc (1 buffer Cacc$l_pageflts); 
page_file_desc : 

1 buffer Cacc$l_pgflpeak); 


buffer Cacc$l_wspeak); 
buffer Cacc$l_biocnt); 
buffer Cacc$l_diocnt): 


direct tae ésc : 
uffer Cacc$l_volumes); 
start_time_desc fo} ; 

start_time desc 


perform () oFeubs ( 


.) 

© 

w 

o 
wnonnnnnnnnnnnen 


buffer Cacc$q_login); 


ime_desc ab 
ere ine. desc 
elapsed ni. Eretiso); 
elapsed. des ie 8; 
owner _désc 
guner ~dese f - S Eletes Cacc$l_owner); 
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; ‘ 
ACC 18-56 -1984 23: VAX-11 Bliss-32 V Pa 4 
yOs-000 Veeco She FiSFibk | peek nShAS FER s kee sReSacc.032;1 "2% «3 
: i i? 123 oy 0 0 $s_job 
3 ob_desc acc$s_ na 
3: 1 \¢ 128 ob- qeese ti : = buf fe? ifaccst “Job. name); 
; 151 14 strip_tra ob _ “ss 
: 1314 144 queue_desc 93 s Butte : *Cacc$t job. aye) 90. ,8>; 
3 1315 145 queue. “desc = buffer Cacc$t_job_que 
3 1 \$ re 
3 131 14 
3; 13518 148 Cacc$k preiobys 
3 1319 149 BEGIN 
: 1320 150 
3; 1321 151 BUILTIN emul; 
1358 188 
3 1 cpu_time ~Ges¢ 9 = 4; 
3 13246 154 cpu_time_d ete Ac = buffer Cacc$l es PE 
: 1325 155 emul we tt e000) buffer Cacc$l_cputim], %ref(0), 
3 1326 136 Py time (0)); 
3 1327 15 Sym_page_ qsese =; . 
: 1328 158 sym_page_desc (1 = buffer Cacc$l_pagcntd; 
; 1393 159 sym_qio_desc [0] = 4; 
: 1330 160 sym_qio_desc [1 = buffer Cacc$l_qiocnt); 
3; 1331 161 sym_get_desc [0 = 4; 
. > 3 166 sym_get_desc [1 = buffer Cacc$l_getcnt]; 
3 133 16 queue_time_desc [0] = 8; 
3 1334 164 queve_time_desc (1] = buffer Cacc$q_quetime); 
3 1335 P 2165 perform (lL7b$subx ( 
3 13 P 2166 -finish_time_desc £12. 
3 1337 P 2167 ;queue_Ttime wjese [1] 
: it $168 3 elapsed time, %ref(25)); 
3 1339 169 giepsed. desc (0 = 8; 
3; 1340 2170 ob_desc (0 = acc$s _prt_na 
3 1341 2171 ob_ p ob 1 = but fof batest. prt. name); 
: a $176 strip_trail (jo sc); 
3 134 17 queue_desc 9} z oP eur toe Cacc$t_prt_queJ)<0,8>; 
3 1344 174 queue. “desc (1 = buffer Cacc$t _prt_que) + 1; 
3 1345 175 
: 138 176 
3 1347 17 Cacc$k ~inenegd: 
: 138 $128 
3 1349 179 user_data_desc (0) = .(buffer Cacc$t_user_data])<0,8>; 
3; 1350 $180 user_data_desc (1) = buffer Cacc$t_user data] + 1; 
3 1351 181 strip_ trail (user_data_desc); 
.¢ 26 136 3 
: 135 \3 
3: 1354 184 
3; 1355 185 
3; 1356 186 return true; 
3 1357 187 
3; 1358 2188 1 END; 
B061¢ -BLKB 2 
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52 45 53 99 boese P.AAG: .ASCII \USER\ : 
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ons an BRHERE & 
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00 53 5 : ? ry if 
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1278 08-1 9b F 
2 $30 P.AAH: .ASCII 
63C P.AAL: .ASCII 
4 644 P.AAJ: .ASCII 
a 220 P.AAK: .ASCII 
4 0065F 
0664 P.AAL: .ASCII 
066C P.AAM: .ASCII 
3 boseo 
5 0680 P.AAN: .ASCII 
44 0068C P.AAO: .ASCII 
5 0694 P.AAP: .ASCII 
4 069C P.AAQ: .ASCII 
; O6A4 P.AAR: .ASCII 
4 00683 
8 Rees P.AAS: .ASCII 
0 6CO P.AAT: .ASCI! 
3 O6CF 
0608 P.AAU: .ASCII 
5 Q0O6E0 P.AAV: .ASCII 
54 O06EF 
OOFC 00000 PROCESS_V2_RECORD: 
. WORD 
9E 00002 MOVAB 
9E 00009 MOVAB 
9E 00010 MOVAB 
9—E 00015 MOV 
C2 O001C SUBL 
4 0001F MOVL 
C Boss MOVZWL 
DO 00028 MOVL 
D1 ok33 CMPL 
12 00030 BNEQ 
dO it MOVL 
oe 00 MOVAB 
4 ee MOVL 
: 0030 MOVAS 
11 00042 BRB 
D1 00044 1$: CMPL 
is 0047 BNEQ 
DO 00049 MOVL 
4 0 of MOVAB 
3 5 MOVL 
. 0055 MOVAB 
1 OOSA BRB 
D1 itt 23: CMPL 
is OO5F BNEQ 
syd MOVL 
3 64 MOVAB 
0069 MOVL 
E MOVAB 
p MOV 
3 7 MOVL 
43 MOVAB 
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SER weeegge’ 
\PROCESS\< 
\INTERACTIVE\<0> 


\Process Termination\<0> 


\PROCESS\<0> 


\Process Termination\<0> 


\SUBPROCESS\<0><0> 
\DETACHED\ 
\PROCESS\<0> 
\BATCH\<0><0><0> 


\Process Termination\<0> 


\PRINT\<0><0><0> 


\PRINT Job Termination\<0><0><0> 


\UNKNOWN\<0> 


\UNKNOWN Record Type\<0> 


R, R2 
RECORD_TYPE 
D_TYPE,~RO 


c 
TYPE DESC+4 

fYPE TEXT DESC 

AAF, TYPE_TERT_DESC+4 


#4, TYPE_DESC 

P.AAG, TYPE _DESC+4 

#i2, fYPE_TEXT DESC 
P.AAH, TYPE_TERT_DESC+4 


RO, #3 


#7, TYPE_DESC 
P.AAL, TYPE DESC +4 
wil, SuBTYPE DESC 
P AAJ PE 
SUBTYPE DESC, 

#19, TYPE_TEXT DESC 

p -AAK, TYPE _TERT_DESC+4 


ity | 
«SRC JACC.B32;1 
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RPoNoKroNroN 
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ponent tet 
7 
A 18-5 “19 3:36:11 
¥06-000 127385-1986 #7:89:38 
01 38: CMPL 
so 1 SH Se 
| 64 t 2 MOVL 
04 AG 50 6A 3 4 MOVAB 
PH » PAR 6 of 
35 Ae 0D 33 TSTL 
6 1 98 BEQL 
D8 = AG a 3 90 MOVL 
DC = AG 6C¢ a3 7 Ba — 
DB = AG 08 0 OAs 4$ MOVL 
DC 8 AG 78 OA ve AC MOVAB 
AO AG D8 AS 7D 00081 5$: MOVO 
28 11 4-44 gs: BRB 
02 1 0088 7$: CMPL 
$3 5 0088 BNEQ 
64 7 44434 MOVL 
i ieee BE 
DC = AG 0088 C5 YE OOOCA MOVAB 
Re 5 Bae ee 
OC AG 0090 3 3 0009 MOVAB 
gp 11 OOODF BRB 
10 0 01 QOOE1 8$ CMPL 
15 12 Bees BNEQ 
64 05 00 OO0E MOVL 
Peed OEE 
OC AG OOAC & 7 QO0F 3 MOVAB 
13° 11 OOOF9 9 BRB 
64 07 DO OOOFB 108 MOVL 
eed 5 a 
OC A4 oocc C5 SE 00108 MOVAB 
ae 8 eagae ce 
CC AG 4 A2 9E 00118 VAB 
DO 8 A4 OQ 8F 9A 00110 MOVZBL 
RM ot OS Big | Bie 
cc 4 0D 00128 PUSHL 
ome eB ae 
mM ASP 8 Ane 2 ie 
0B 1 O13 BEQL 
re C4 04 4 Bie MOVL 
FF24 = C4 oc A 3 14A MOVAB 
FF4QO) = C4 0 3 3 9 128: MOVL 
FFAG C4 10 A 3 1 MOVAB 
1 re ot 
rere C4 OF 00166 PUSHAB 
66 4 Fe 16A CALLS 
38 AG c. # 16D VL 
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#7, TYPE_DESC 
P.AAL 
#i9, TYPE_TEXT DESC 


Pp 
80(R2 
to SUBTYPE DESC 

BAAN, SUBTYPE _DESC+4 

#8, SUBTYPE DESC 

P.AAO, SUBTYPE _DESC+4 
SUBTYPE _DESC, PROCESS_DESC 


RO, #2 
$ 


TYPE “DESC 

SUBTYPE DESC+4 
SUBTYPE DESC, PROCESS_DESC 
#19, TYPE_TEXT_DESC 

PAAR, TYPE_TERT_DESC+4 


6 #16 


#5, TYPE DESC 
P.AAS, TYPE _DESC+4 


P.AAQ 


#21, TYPE_TEXT DESC 
P.AAT, TYPE_TERT_DESC+4 


#7, TYPE_DESC 

P.AAU, TYPED 

#i9, TYPE_TEXT DESC 
P.AAV, TYPE TERT DESC+4 
2(R2), RECORD_LENGTH 


US _DEST+4 
, TRARSLATE_STATUS 


NT_DES 
(R2), IDENT_DESC+4 
(R25 


a. | 5 
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8 
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:CACC.SRCJACC.832;1 


ooo°o°o 


Ronononononornoen 
FSELSe SE 


oCocoCo oO 
Mn 4 
Oeane 


BEERS 


se 


jolololelelelololol~o) 


oO 
oo 
o 


SE2392 23 


MoPoSKoPoNoNeTN oo Pero PIPIPININININPINININININININIG POMPEU NOMOPONoNoN 


8 


2101 


<> 


_ a na = cr Page 45 
? “11 Bliss-32 V4.0-762 (9) 
-$ep-1984 23:36: VAX R:CACC.SRCIACC.032;1 
a , tesgeen tase 7:59:58 scene C £3199 
| v04-000 171 MOVAB  32(R2),_USER_DESC* ; 210 
sc Ms OA SF bore cs nepése TRAL ; 2105 
O} Fe Oily MOVE  RECORD_TYPE, R : 2107 
ar et : 
13$: : 
00 1 90186 128; PRL ny iad > 2112. 
v 66 0 001 ROVE CPU TINE -DESC+4 8 
FFIO «C4 oo i ae 1 nove ccins) “UATR2). 780, QUAD_CPU_ TIME : 116 
Frye 3 00018680 BF 7A 001 NOV’. #4, PAGE_ FAULTS DESC : 2117. 
wo HRS B REIS Mla Hughie ae 
FF7C CG [ 1AD MOVAB S24RD). PAGE FILE DESC #4 : 2120. 
9 « AZ be ootBh lS hae Pe. EM + 5457) 
ar 06 BO OIB6 ROVAB SG(RD). UORRING- SET. DESC #4 : 2122 | 
48 AG 04 3 O1BA MOVAB 56 _* Heres 107DESt ‘$4 ¢) 
6M 58 Oe BO OolBt MOVAB © 60CRD), BUFFERED. 10, DESC +4 + $154. 
ws 6s AZ 9e oles MOVE, a. DIRECT. 10, DESC : 2125) 
FIs Ca Be OOrcE move —4iRZ). DIRECT 10_ : 5159, 
FFIC C4 40 A? 0 1b8 MOVE == #4, VOL DESC +4 : 5138 
aay 44 A ‘ 0109 MOVAB Beene ART TONE Brae > 3129) 
= o 08 00 001d MOVL (Rd). START. TIME DESC +4 t $183. 
CO AG Bare MOVAB §72(R P - : 
C4 Ad * 6 3a MOVL #2, (SP) : | 
= SE BD OOIEA PUSHAB ELAPSED. TIME ; 
FEES CG OF OOIEC PUSHL” START TIME DESC #4 : | 
(4 Ae DD OOTF PUSH FINISR TIME DESC +4 : | 
FFGG = CG 4 Baie CALLS #4, LI sven ‘ 
$i 3 EB QOIFA nee S 2136. 
4 OO1FD 8, ELAPSED. DESC > 2135. 
1FE 158: MOVL 48, ¢ ; 2136) 
ms BREE BL gee hy 
FF74 (C4 70 8 DT bocce 168: MPLS ORS. a2 : 2141 | 
02 i292 O03 SL og8. 0B, DESC : 314 | 
FF6E0 C4 a5 06 esta MOVAB_ 84 {R3).~JOB.DESC #4 ; 2143, 
ere” ee. i: 0 3 CALLS, #1 7StRIP eet esc sie 
of “s Oe ROVZeL en} GOEUE bese, oH 
AC AG > 8S OF 0055" 178: Cree RS, #16 tans, 
- ; if 0232 ROVE PULTIME DESC 134 
FFIO C4 2c 3 SE 00989 MOVAB cctns) UATR2) ¢7#O. QUAD_CPU_TIME : $189 
FeEO ch 5 gE Br Goset Ravan SataSl" Cnn EE pesca : $188 
fe » 4 MOVAB S2ER3).~SYRTO10 DESC#4 : Ste1 
EB AG 04 38 MOVAB 52(R2) -010, : $162 | 
FO AG ae D WM eeath Oi EET besceg isd 
3 a 8 a4 0 66 ROL ( pr ets 2 hate 
AG 0 MOVAB 60(R2), : | 
Bek 5C Ae YE 00268 


Pore 
vOs-000 


3; Routine Size: 


703 bytes, 


6E 
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9 

free C4 
FF6 C4 
FF64 «= C4 
66 

AB AG 
AC AG 
11 

3 AG 
As 


50 


Routine Base: 
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15-5 Sep VAX-11 Bliss-32 V Fags, P 46 
ee ets rat ts ee ot rt) at 5 
MOVL #2, (SP) : 2168 
¢ PUSHAB ELAPSED_TIME ; 
78 PUSHL QUEUE TIME DESC+4 : 
78 HL 6 FINISA_TIME DESC+4 : 
7F CALLS #4 Lpessugn 3 
é BLBC STATUS, 20$ : 
MOVL #8, ELAPSED_DESC : 169 
A MOVL ’ 408 _0FsC : 2170 
F MOVAB 68(R2), JOB_DESC+4 + 2171 
%5 PUSHAB JOB_DESC t 2172 
CALLS ‘ TRIP_TRAIL : 
Tl MOVZBL gir ), QOEUE_DESC + 2173 
Al VAB_ 77(R2). QUEUE-DESC +4 : 217% 
ag 18$: C : RS, ni? + 2177 
MOVZBL 44(R R2), USER_DATA_DESC + 2179 
B VAB_ 45(R2), USER-DATA_DESC+4 + 2180 
B PUSHAB USER DATA DESC > 2181 
88 CALLS #1, STRIP_TRAIL 3 
BB 19$:  MOVL * RO F 3186 
BE 20$: RET ; 2188 


an | 
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1S-seo-1986 28:56:11 vAnedt aise: 
ROUTINE PROCESS_V3_RECORD (BUFFER) = 


' 
! Functional description 


This routine is called to analyze a record from the system 
accounting file. 


i Input parameters 


' 

' 

! 

' 

' 

' 

; BUFFER = Address of a buffer containing the record to be detailed. 
‘ he record can be any type of record from the V3 format. 
=~ (ACRSW_TYPE can have any value) 
4 

! 

! 

t 

1 

4 

4 

! 


i Output parameters 


Based on the contents of the record, values are established. 
These values are used in later processing, 

i, errors encountered are RETURNed immediately. 

TRUE is returned on a normal exit. 


BEGIN 
MAP 
buffer: ref bblock; ' Define buffer block format 
LABEL 
pkt; 
OWN 


packet; 


<> 


ity | 
- SRC JACC.B32;1 


=e 
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SSLFSFELLES 


at a nt a 8 8 


oot ek ek od ek ek ke ek et et ke ek et ek et eke klk el el ed ed 
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15-Sep-1984 23:36: VAK-11 Bliss-32 V4.0-74 
ms Tatty elle tae hte see Sacc.ese:1 


14-Sep-19 
' see nwnnenen nen en awen emer ee on ee wre wrenwneawrwrawrnwransrennwnen ron ea mre ene ana sre nen mre wenn ese n ewe ene ee we aw ee mow am 
: 
: Record header 


; Record type and subtype 


if -buffer Cacr$v_packet] 
then return false; 
record_ty = .buffer acr$v typed; 
record subtype = .buffer Lacr$v_subtypel; 
customer = .buffer Cacr$v=customer); 
a NOT .customer 

en 


BEGIN 
SELECTU .record_type of 
acr$k_prcdel, acr$k_prcpur, acr$k_imgdel, acr$k_imgdel): 
SELECTONEU .record_subtype of 
acr$k_interactive): 
BEGIN 


process_desc £0} = 11; 
rocess_desc = uplit (*INTERACTIVE'); 


ND; 
Cocrth_ovporeceesd: 
BEGIN 


process_desc £0} = 10; 
rocess_desc = uplit ("SUBPROCESS'); 


ND; 
Cacr$k_detached): 

BEGIN 

process_desc £0} = 8; 

roeens,,2008 = uplit ("DETACHED'); 
Cacr$k_batch): 

BEGIN 

process_desc £0} = 5; 

recess_cove = uplit ("BATCH'); 
Cacr$k_network): 

BEGIN 


process_desc fo} = 7; ; . 
prgcess,_coes = uplit ("NETWORK"); 


TES; 
END; 

Cacr$k_prcdel, acr$k_prcpur): 
BEGIN 


type_desc £93 = 7; 

type_desc [1] = 8 Lit Chpnoress"): 
type_text_desc j = 19; 
type_text_desc [1 

subtype_desc fo 
subtype_desc [1 


= uplit (*Process Termination"); 
= .process_desc f9 $ 
= .process_desc (1); 


<> | 


? 
13-Sep-1984 Tees, Meath FeR kee see Sacc.0s2:1 7819 


$F 
s 


END; 
Cacr$k ~ingdel. acr$k ~neme 
type_desc [0 
ee =desc fi iy: ‘a wr enege hs 
y x esc = : 
type_text_desc f = uplit ("Image Termination’); 


oe el el ek ek et De 


DADA 
DOONAN WP 


Cacr$k ~sysinied: 


ets BS we cpu, 


type_ text_ desc 
type_text desc = uplit ("SYSTEM INITIALIZATION"); 
Cacr$k Oe. 

BEGIN 

type_ gene f = 

type_ -gese | nome is sey Tine® ); 
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OO et et et ed oh ee eee ee ee ed ee ee or or or le |) Po rr re Por rr re Pe oP re 


type_ text ie 
type_text “desc 


E 
Cacr$k ~logtaitt: 
BEGIN 
type_desc Fo} 
= i" 


= uplit ("System Time Change‘); 


Oooo 
wn—o 


FERS SSAVSAS AN SSS 


type_desc Lit ("LOGFAIL'); 
type_text_desc 5 = * 
8 type_text_desc [1 = uplit ("LOGIN FAILURE"); 
0 Cacr$k pring): 
1 BEGIN 
1 type_desc £9} = 
1 type_desc s " Lit ("PRINT"); 
85 1 type_text_desc i = 21; 
ry] , type_text_desc [1 = uplit ("PRINT Job Termination’); 
88 1 Cacr$k Ee 
89 1 BEG 
90 1 type_desc f9] = 
91 1 type_desc = , Lit ("USER"); 
4 type_text_desc 5 = 12; 
rs type_text_desc = uplit ("USER Message’); 
95 


Cacr$k scabies: 


type_desc fo} = 
type_desc = 4 
type_text_desc 
type_text_desc 


Cacr$k dittes 
BEGIN 


type_desc FO} = 
type_desc 

type_text_desc 
Eype- text_desc 


oo > EWA LE" ); 
= = uplit ("Enable Accounting"); 


ee a a a an kk a tk at a = ot ot 


Py al ab ab ah Ah ak Ab al tt Det ee el dl ek el ed ek ek lel tel De ek tek ee et lt et ed et et et ot nt ot nt nt nt ed 


ooo 
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SISAR ALLS SOS 


a DISABLE”); 
= . 
f = uplit ("Disable Accounting"); 
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WE 00 rBrSeo-1986 28: 56:1 WAHT Binge Wa O=74g 
CoceSh_ol terad: 


type_desc - 
type_desc £9} = 
type_text_desc 
type_text_desc 


Cacr$k_file bl): 
BEGIN 
type_desc 9} . 4; 


type_desc Lit CETLS BL"): 
type_text_desc of = 32; 


type_text_desc = upl it 
("ACCOUNTING FILE backward pointer’); 


6; 

i aa 
= . 

Ef = uplit ("Alternate Accounting Manager’); 


A 


VOOR COMIN nrwNwoOos 


et 
Cacr$k_file fl): 
BEGIN 


ieeecaees ab . uptit CPILE FLD: 
type_text_desc ro) = 


record_length = .buffer Cacr$w_length); 
Record creation time 


if . (buf fer facr$q_syst ine )<0,32> NEQ 0 OR 
(buffer Cacr$q7systime) + 4)<0,32> NEQ 0 


then 


; type_text_desc = up it 
: ua ("ACCOUNTING FILE forward pointer’); 
H ¢ LOTHERWI SC); 
5 BEGIN 
5 type_desc £0} = 7; 
535 type_desc (1) = yelit ("UNKNOWN"); 
5 type_text_desc = 19; 
2 type-text_desc 1] = uplit ("UNKNOWN Record Type’); 
5 TES; 
54 END 
54 else 
54 BEGIN 
54 type_desc fF} = 8; 
54 type_desc (1) = uplit ("CUSTOMER"); 
54 type_text_desc 09 = 20; 
54 type_text dese 1 = uplit ("CUSTOMER Record Type’); 
a e 
33 : Record length 
5 
5 
; 
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og Gin 
finish_time_desc £0} 
finish_time_desc (1 


8; 
buffer Cacr$q_systime); 
END; 
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' 
: Packet processing 


Find and detail all 


pa ket 
while 


if ( 
if ¢ 
SELE 
Al 
a 


18-50 


14-Sep-1 


known packets 


= .buffer + SBYTEOFFSET(acr$k_hdrlen); 
aPcin™ LSSU .buffer * .record_length do 


pecker: ., 


| coches 


ref bblock; 


face gy. packet) fe. 
spechet acr$v_ peeseeee 
cfoneu -packet” faery type 


cr$k_ id]: 


ID packet 
BEGIN 


BIND 
id = 


=f 


packet: 


Tasee desc 


a desc 4 Ca 


1 


Be 47:39:58 


0) then return false; 
ee 0) then leave pkt; 


bblock; 


cr$l_pid); 


if (.id focrsl. owner] NEQ 0) then 


owner _desc 
owner_desc 
END; 


BEGIN 
vic -binary. goes 


tt} 


= id Cacr$l_owner); 


0] = 4; 
uic_binary_desc fi * = id Cacr$l_uic); 
uice “group_desc > ¢i 

“group_desc = id Cacr$w_grp); 


wien “member _desc he 
vice “member _desc 


wT /SUMMARY=UIC then 
: yOniet. 


won eed 
FORMATASHOW_ FULL. 
if . SUMMARY _UIC 
then 
tt} s 67; 
uic_desc 
perform ( 


‘a 


/BINARY, or a /SUMMA 
it, so avoid it. For /FULL, 


Cacr$w_mem); 
do UIC conversion. For 
do it 


c_buf; 
idssys. i5e (ad(*!21'" ), 
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<> 


RY but not by Yc, 
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HSostoctone 28H] yanctt euseecd2 40-743 Page, 52. 


3 3 P 2447 vic desc e 

3; 1 P 264 uic_desc 

31 44 .id*Cacr$l_uic))); 

3 3 4 end; 

3; 16 4 END; 

3 1? : 

; i 454 a Teliens desc f9 J: 8: 

3 + ? privilege. desc 1 d Cacr$q_priv); 

16 é 

31 4 4 or lertee.. desc fo} = 1; 

3; 16 rh ¢ priority. desc = id Cacr$b_pril; 
it i | 
; + {a7 if (.id Cacr$w_username] NEQ 0) then | 
: 16 465 user_desc [0] = | 
3; 16359 re -(id_ + .id Cacr$w_username])<0,8>; 

3; 1640 46 user dese c! 
: + od ree ; id + id Cacr$w_username] + 1; 

: 1808 4 if (.id fact fu account] NEQ 0) then 
3 1644 47 ° BEGIN ~ 
3 1645 47 account _desc (0) = 
3 1068 4735 6 (id + id Cacr$w_account])<0,8>; 

3 164 474 6 account_desc (1 
3 \os8 of? 5 “id + .id Cacr$w. account) ¢ 1; 
; 1650 47 ; if (.id factsy _nodename] NEQ 0) then | 
; 165¢ 479 6 node eth ($0), 
3; 165 4 6 id Cacr$w_nodename])<0,8>; 
3 1654 481 6 node dese tia’: 

3 193? ; ¢ ; id + id Cacr$w_nodename] + 1; 
: 1687 4 4 3 if (.id Eact su, terminal] NEQ 0) then 
; 1689 4 6 terminal _dese (0) = 

3; 1660 48 iid Cacr$w_terminal])<0,8>; 
3; 1661 $83 6 terminal desc ‘ti 
3 1o6¢ ° ; 1d d Cacr$u. terminal] + 1; 

: 1908 a3 if (.id Eactsu, jobname]) NEQ 0) then 

; 1668 49 3 ob_desc (9) 

3; 166 494 6 ‘ig : -id Cacr$w_jobname))<0,8>; 
3 1908 495 job_desc “t1 

3 166 $38 id + .id Cacr$w_jobname] + 1; 
3; 1670 49 fe 

3 \ere rp 3 if (.id act St jobid) NEQ 0) then 

+ 167 5 entry_desc (0 

3 1874 301 ; entry desc FS 3 = 44 Cacr$l_jobid); 

+ 1676 208 if (.id em _queue] NEQ 0) then 


15-sen-t984 GieFid, MNS ebnGAAS FER he sheSacc.o32;1 89133 


sh 
g 


wr 


BEGIN 
eee desc (0) = 


desc fi} : 
a id ¢ + .id Cacr$w_queue]) + 1; 


-id Cacr$w_queue])<0,8>; 


END; 
if (.version Et acr$k_version3) then 
if (.id facrsu. nodeaddr] NEQ 0) then 
address ~desc f {0} = 


address =9es¢ (1 
“id + .id Cocr$w. nodeaddr] + 1; 


id Cacr$w_nodeaddr])<0,8>; 


o 
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69 


if (.id Eact su, remoteid] NEQ 0) then 


MEUM $0 ODNOUN EWN "OO ONO NEW 0 0@ 


3) ; 
3 : 
3} : 
3 Y ‘ 
3; 1 : 
3 3 1 : 
3 7 1 ; 
3 7 1 3 
3 1 1 é 
3 1 1 : 
3 1 1 3 
3 1 1 ; 
3 7 18 6 : 
3 1 1 : 
3; 16 2 . 
3 1694 remote_id_ desc [0] = : 
; 1695 522 7 tid + Lacr$w_remoteid])<0,8>: : 
3 1208 5 7 remote_id_desc {1} = : 
3; 169 5 7 id + .id Cacr$w_remoteid) + 1; : 
; 1998 5 3 END; ‘ 
i413 359 2 = ; 
3 1790 5 4 : 
3 1708 5 4 Cacr$k_resource): ; 
; 170 5 4 ! ‘ 
3 1704 5 4 ' Resource packets : 
 1)0e 833 § BEGIN | F 
FO 3 
3; 17 5 BIND : 
; 17 5 resource = .packet: bblock; : 
3 1710 5 : 
: 1711 538 6 BEGIN : 
3 Hat 539 6 start ~time_ desc £0} = 8; | ’ 
3 171 540 6 syert ~time_desc = resource Cacr$q. login); | : 
3 1714 541 § -finish-time_desc CO] NEQ 0 : 
3 1715 235 BEGIN : 
; 4) | P 2545 7 perform (Lib$Ssubx ( : 
3 171 P 2544 7 finish time desc : 
3; 1718 P 2545 7 -start_time_desc ci}, ; 
> 1719 346 7 elapsed tine tref( es ; 
3 1720 547 7 elapsed. desc [0] : 
3 1721 548 END; ‘ 
3 17 ; 549 END; : 
3 17 550 : 
3 1724 551 6 BEG! : 
3; 1725 236 6 oreree desc mss : 
3 17 $ 553 6 status_desc = re source Cacr$l_status); : 
3 17 554 6 status_text_desc 80; : 
3 17 ; 555 6 status_text desc ? = status_ text_buffer; F 
3 17 228 6 translate_sfatus : 
3; 1730 55 ti ste al desc [1], status_text_desc); : 
3 1731 338 END; . 
3 17 ; 55 : 
3; 17 560 6 BEGIN : 


7 
1Eogee 19g Fishisk | DESKSumgmaSterscacccsecsacc.e32;1 8%135 
execution_desc 


FO} = 4; 
Socees ten Sone 1] = resource Cacr$l_imgcnt); 


2a 
=> 


BEGIN 
BUILTIN emul; ‘ 


cpu_time_desc (0) = 4; 

cpu tige dese 1] = resource facr$| cout ime}: 
emul (ref ( 0 », resource ecrslcputine ‘ 
cw Zref(0) ,quad_cpu_time (0)); 


BEGIN 
page_faults_desc 0 = 4; 
poge.teul ts_dese 1] = resource Cacr$l_faults); 


BEGIN 
page_reads_desc £0} = 4; 
page.reads_desc 1] = resource Cacr$l_faultio); 


EGIN 
working_set_desc Fo} = 4; 
working_set_desc [1] = resource Cacr$l_wspeak); 


SRESSESELES PRN S Sato U MNS ee US TEE 


PUSS BS BS BE BE BS BID DD SIP DD. IID DDE VID. DD III DD VII DD TI II PPA A II 


Ah Ab Ab Ab Ab Ab Ab Ab Ab Ab Ah Ah Ab hb hh Ah Ab hb hb shh hh hb hh bb hb hh hb hb hb dh hb hb oh oh oh bh ob oh Al 


SSIIVSIAATISSELTOFERES SEAT Lo oe wah HOSEA OE 


cena fite.deet £80 © & esd 
age e_desc = 4; 
page=tile-desc ab = resource Cacr$l_pagefl); 
direct_io.dese [0] = 4 | 
rect_io_desc = 4; 
.) direct_io_desc ab = resource Cacr$l_diocnt]; 
98 END; 
99 | 
$0 Butte ed_io_desc (0 4 
uffer = 4; 
4 bul tered. lo_desc ab = resource Cacr$l_biocnt); | 
604 . | 
$06 at pe s.desc (0 4 
volume = 4; | 
ret volumes_desc ab = resource Cacr$l_volumes); | 
é 609 END; 
: Cacr$k_imagename): 


Imagename packets 
BEGIN 
BIND 


a ee ee 
Se ee Deen bee be ee Di be be ee i i i i | 


DORA 
a et et 


SSELS 


~w 
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ACC 18-se 1984 23:36:11 VAX-11 Bliss-32 V4.0-74 Pa 5 
¥O5-000 1278651984 $7589) DLSKSVMSMASTERSLACE. SRCTACC.B32:1 42 
image = .packet: bblock; 
LOCAL 
name_end; 


if A -Cinons Cacr$t_imagename])<0,8> NEG 0) then 
BEGIN 


MACRO 
ITMLSTSK_LENGTH = 8 2%, ! Item List member size. 
ITMLSTSW_LRETLEN = 0,0,34.0 2, : Return Length. 
01 ITMLSTSW_ITMCOD = 818-8 he ! Item code. 
5 ITMLSTSA_BUFADR = 4,0,32,0 % ! Address of component. 
804 
805 LOCAL 
806 itmlst: block£€ (_ itmist$k_length * 1) + 


ss 


Seee ee eee 
—_ 
COONAN NNN 
SILSSSILVS 
PMINIPOPONPOPO NPP NoPOPyNononoNnonofnopfnonyd 


mtn byte ° 
' SFILESCAN item List (plus ending zero) 
status; 


PAEAEXAAAAAAAA AAAS AA AA AO 
WWNNAWNIWInonononononononofnonn 


SODONAUNE WN $9 ODNOAUNE WIN @ O ODNAUES WN $C ODNOU SWI —OW0 


. 3 

| 

; 9 

, 3 

; 6 

. > 6 

3 3 6 

37 6 

3; 1 6 

3 1 6 

3 7 6 

31 6 

| 6 

3; 1 6 

3; 1 6 

3; 7 6 

3 7 6 

3; 1809 6 

; 1810 6 

; 1811 6 MAP 

3 iste 2639 6 itmlst: blockvectorl, itmist$k_length, byte]; 
> 181 364 6 

3 1814 641 6 image_file desc (0) = 

; 1815 642 6 . (image $4 °St. taagenanel) <2 .0>) 
2 1316 6435 6 Vnage. tite dese 1] = 

3; 181 644 6 image Cacr$t_imagename] + 1; 

; 1818 2645 6 

3; 1819 see 6 .¢ 

: 1820 647 6 ! Do SFILESCAN to get filename. 

: 1821 2648 6 te 

3 See 2649 6 pat ed § itmlst$w_itmcod] = fscn$_name; 
3; 182 2650 6 itmist(1, 0, 0, 32, = 0; 

3; 1824 P $82 6 status = $filescan( 

3; 1825 P 2652 6 srcstr = image _file_desc, 
3 1826 2653 6 i valuelst = itm[st ); 

3: 1827 654 6 if not .status 

: 1828 655 6 then return .status; 

; 4 656 6 

; 1830 657 6 subtype_desc [0] = image _desc(0J) = 

: 1831 658 6 si talss 0, itmlst$w_retlen); ! Length 
3 1336 659 6 subtype_desc [1]} = image desc(1] = 

: 183 660 6 -itmistCO, itmlst$a_bufadr]; ! Address 
; eee 661 g 
3; 1835 O66 END; 

3: 1836 6635 4 END; 

3; 1837 664 4 

3; 1838 665 4 Cacr$k_filename): 

3; 1839 066 4 H 

: 1840 667 4 ' Filename packets 

3; 1841 668 4 ! 

3 HF 9 669 BEGIN 

3; 184 670 

> 1844 671 BIND : 

3 1845 ore file = .packet: bblock; 

: 1246 67 ! : 

; 184 674 if (.(file Cacr$t_filename})<0,8> NEQ 0) then 


Be Gs Os Oe Oe os Gs Be Be Oe Ge Os Ge Oe Oe Ge Os Os Os Os Os Oe Oe Oe Os Be Oe Oe Oe Oe Oe oe oe Oe Os Os Oe Oe 


8 os = 
vOs-000 HE$coc198e FHHSAS  AMGHTABALSRERE MR Sacccosarn ads 


:] g eF6 file Cacr$t_filename])<0,8>; 
: i ; é tite sndese 9} - e acr$t_ filename] + {; 
: END; 

; } 3 ( END; 

: ; d Cacr$k_user_datal: 

; it ‘ : User data packets 

; i 38 BEGIN 

: 1889 en ba 

+ 1861 user_data = .packet: bbloc 

: 18e8 F<. oSuer fate Cacr$t_user_data])<0,8> NEQ 0) then 
+ 1864 © BEGIN 

: \eea é nes ger noes “date Cacrst_ user_data])<0,8>; 
; 1865 3 ore -teta dese ti Cacr$t_user_data] + 1; 

: 1889 no; 

; 1872 4 Cacr$k_printd: 

: 189 ¢ i Print resource packets 

; Hts ¢ BEGIN 

; 1879 tee 

; 1879 706 print = .packet: bblock; 

> 1880 ; 5 

3; 1881 708 6 BEGIN 

: 188 $798 é ceeaun naeee FO} ‘Bit nt gaceet _printsts); 

: 188 711 6 status_text_desc } = 

: bes $i 6 status_text desc es RR text_buffer; 
: 1888 $718 6 translate_status 

: 1889 2714 : ({.status_desc [1], status_text_desc); 
: 1888 re time})<0,32> NEQ 0) OR 

: 1890 ng 3 grit feds ~pestine + var > > NEQ 0) then 
+ 1891 718 6 

: 1834 n8 é start. -tjne- te 9} oY oat CacrSa. ,begt tne); 
: boa 721 §  « finish  tiee. desc (0) NEQ 0 

; 1890 , ¢ 7 perform (Lib$subx 

: is > 55 ii fine +s ff} 

: tbo p Spgs “start ime. desc ti 

2 1898 P $7S? , elaps a ti af Zref(25)): 

: 1300 , $ 7 elapsed. p bom >a 

+ 1901 728 6 ; 

190 $5 ENe etime))<0,32> NEQ 0) OR 

: 1308 , ? 5 one 9 eohaa Laeteh neste + 4)<0, $2> NEQ 0) then 


8 
/ ACC 1B.se “19 3:36:11 VAX-11 Bliss-32 V4.0-74 P 7 
vOs-000 12=808=1 382 $7589: 48 DLAKSVMSHASTERSEACE SRCSACC.B32;1 oe 13) 
; 1905 7 BEGIN 
3 1308 7 ‘ é queue_time_desc £93 = 8; 
; 190 7 6 queue_time_desc = gs ing Cecr$q_quet ined; 
; 1398 735 6 f .finish-time_desc (0) NEQ 0 then 
3 1 P 27 6 perform (Lib$subx ( 
: 1910 P 27 6 efinish_time_desc [1] 
; 1911 P 27 : 6 -queue_time_desc [ 3 
: 1918 7 elapsed_time, %ref(25)); 
3; 191 740 END; 
3 19146 741 
3; 1915 by 6 BEGIN 
3 1316 743 6 
» 191 744 6 BUILTIN emul; 
; 1918 745 6 
; 1919 746 6 cpu_time_desc (0) = 4; 
: 1920 747 6 cpu_time_desc [1] = print Cacr$l_symcputim]; 
3: 1921 748 6 emul (%ref(100000), print Cacr$l gyacputial. 
3 19 ¢ 74 Zref(0), quad_cpu_time (0)); 
; 19 750 END; 
: 1924 751 
3; 1925 752 6 BEGIN 
3; 19 $ 753 6 SyM_page_desc Fo} = 4; 
3; 19 754 sym_page_desc 1] = print Cacr$l_oagecnt); 
3; 1928 755 END; 
3; 1929 728 
3; 19 757 6 BEGIN 
3 133) 758 6 sym_qio_desc £0} = 4; 
3 19 g 759 syn_qio_desc 1] = print Cacr$l_qiocnt); 
; 19 760 END; 
; 19 761 
3; 1935 762 6 BEGIN 
3; 1936 7635 6 sym_get_desc (0) = 4; 
: 1937 764 3 sym_get_desc 1] = print Cacr$l_getcnt); 
3; 1938 765 END; 
3; 1939 766 4 END; 
3 1940 767 4 
3 1941 768 4 COTHERWISE): 
3 Hos 168 4 ‘ 
3 194 7 4 ! Unknown packet type 
3 1964 771 & 4 
3: 1945 772 4 return false; 
3 1946 773 4 
3 1947 774 4 TES; 
3 1968 775 ; END; 
3 194 77 pocket = .packet + .packet Cacr$w_length]; 
: 1950 77 ND; 
3 1951 77 
3 Ieee 77 
3; 195 780 return true; 
3 1954 781 
3; 1955 782 END; 
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O1FC 00000 PROCESS_v3 ~ ye $ 


WO Save R2,R3,R4,R5,R6,R7,RB : 2189 : 

§ 000000006 00 MOVAB TRANSLATE _STafus, R68 3 : 

0 cf MOVAB PACKET, R? : : 

§ 0000 G MOVAB LIBSSUBx a6 : : 

FE CF 3 1 MOVAB P.AAW, R : : 

4 00000000" FF 1A MOV TYPE_DESC, R4 3 : 

0¢ 1 SUBL 6,°S : : 

AC 0 4 MOVL BUFFER, R3 ; 2231) : 

0 6 8 BLBC 3), | ; | : 

0564 31 8 BRW $ $ : 

6 7 1 €F E 1 EXTZV #1, #7, (R3), RECORD TYPE : 3 ; 
A 4 O €F 0 EXTZV 4 TERS}, RECORB_ SUBTYPE : | ; 
6 1 F EF Extzv #15, #i, (R3), CUSTOMER > 2235) : 
3 FECO C4 £9 O0044 BLBC UsfoneR. 23 : : 

0180 31 00049 BRW $ ; | : 

51 FECC C4 DO 0004C 28: MOVL RECORD_TYPE, R1 : 2239) : 

2 1 00 00051 MOVL #1, R2 : : 

1 05 00054 TSTL > 2241 : 

9 13 0005 BEQL «= 7$ : | ; 

03 1 01 0005 CMPL =o, #3 ; : 

4 1A 00058 BGTRU 7$ 3 : 

2 04 00050 CLRL = R2 : : 

50 Fec® C4 00 005F MOVL § RECORD_SUBTYPE, RO : 3 43 : 

01 0 D1 00064 CMPL = RO, #1 > 2245. ; 

OA if 0067 BNEQ $ : ; 

AO AG 08 0 00069 MOVL #11, PROCESS_DESC > 2247 : 
AG AG 9& 0006p MOVAB P.AAW, PROCESS_DESC+4 : 9g68 : 
i 00071 BRB : 224 ; 

02 D1 00073 3S: CMPL = RO, #2 ; 2250 ; 

08 i 00% BNEQ ; ; 

AQ AG OA 0 0007 MOVL #10, PROCESS DESC : 352 ; 
AG AG Oc AS 9 0007¢ MOVAB P.AAX, PROCESS_DESC+4 > 225 ; 
ef 17 00081 BRB 7$ > 2243 ; 

03 D1 00083 4s: CMPL = RO, #3 > 2255 ; 

if 0086 BNEG = 5$ : ; 

AO AG 08 00 00088 MOVL #8, PROCESS DESC ; 357 ; 
AG AG 18 AD 96 0008¢ MOVAB P.AAY, PROCESS_DESC+4 : 3258 ; 
le 11 00091 BRB 7$ ; 3 : 

04 50 D1 00093 5S: CMPL = RO, #4 ; 2260 ; 

08 i 009% BNEQ ; ; 

AQ AG 0 p 009 MOVL #5, PROCESS DESC > 226 : 
AS OAM 20 Ad 9 0009¢ MOVAB P.AAZ, PROCESS_DESC+4 > 226 ; 
f 1 Al BRB 7$ > 2043 | ; 

05 pt OOA3 68: CMPL = RO, #5 > 2265 | ; 

9 3 00 BNEQ 3 | : 

AO AG z 2 MOVL #7, PROCESS DESC > 2267 | 3 
AS AG 28 AS MOVAB PABA, PROCESS_DESC+4 ; a 3 
1D BEQL «=s8$ ; | j 

02 51 pi 0008 CMPL =o, #2 ; | j 

18 1A BGTRU 8$ ; | : 

52 D4 A CLRL Re ; i 

64 07 00 MOVL #7, TYPE DESC > 2274, : 

04 AG 30 A} MOVAB P.ABB, TYPE DESC+4 2 2075 | : 
8 Ab 13D MOVL #19, fYPE_TEXT_DESC : 2276 | i 
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P.ABR, TYPE_DESC+4 
wis, fy 


PE_TEXT DESC 
P.ABS, TYPE_TERT_DESC+4 
oh, He 
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#4, TYPE DESC 
P.ABV, TYPE DESC +4 
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ri, # 
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R2 
#4, TYPE_DESC 

TYPE DESC+4 


P.ABX 
fvPE TEXT DESC 
BABY, TYPE TERT_DESC+4 

#7. TYPE_DESC 

P.ABZ, TYPE _DESC+4 

#i9, TYPE_TEXT DESC 
P.ACA, TYPE_TERT_DESC+4 


#8, TYPE_DESC 

P.ACB, TYPE _DESC+4 

#20, fYPE_TEXT DESC 
P.ACC, TYPE TERT DESC+4 
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8 Bhs VAX-11 Bliss<32 V «SRC JACC.832;1 2 
15-se-1984 Fi8Fisa ONSkSumgnastenscact : 2419 ; 
14-Sep : IDENT DESC +4 : 2422 : 
MOVAB 4 (R23, - ; | ; 
FFAG Ch a $f bear Ses” + SUse : 
S05 38 boost MOVE. OWNER DESC + $459, : 
4 76 MOVAB BR2) nen DESC : ¢4 ’ 
FF70 = C4 08 A 8 Mt v MOVL ay ysC BIN BINARY DESC+4 : 2431 : 
FF?4 C4 0 06 298: fovaa 3tR 1é_GROOP_ Desc” e $036 | : 
10 Ad OC AZ 9E 0083 MOVAB —14{R9) “UIC GROUP. DESC #4 i 24 ; 
6M 0 : MOVAB —14(R2) MEMBER DESC i 434) 3 
Re « BE I a aE 
AG 9 ot RY UIC? 30 > 2445. : 
‘ gost ‘ A movie Botti esc : 3449. ; 
F MOV Acton : | ; 
Ad Ab (R2) | 
MO b OOgae Pusmia ufc bese ie ew, 
Me 3F a PUSHAB Ph. LIBSSYS_FAO ; | ; 
gO BI BAS eaten ae 
sear SO © be oses : wn 0 PRIVILEGE DESC : 3459. 
A? Se O0nc8 = mOVAB etna). TY DESC” 3 gh00 | : 
a on . O5¢D MOVL oh Rt ORAIORT TY DEsce4 nl : 
36 AG ; Ft BE 0201 ROVZUL $6 (Ra) RO > 2466 | ; 
94 AG 1A a5 3¢ 00206 BEQL 1$ SER_DESC : 24 ; 
¥ 9a Oo5D¢ MOVAB’ 1 CROSCR2S, USER DESC #4 3 24 "| : 
604 MOVAB .~- : | ; 
AG O2E1 (R2), R > 2473. : 
eke 01 $i 5 QgE7 318: ROVZUL 8s ACCOUNT DESC : 373 
er OF Ok O03ED MOVABY 1 cRODERZS ACCOUNT _DESC+4 : ia : 
FEFB C4 1 A063 9 O03FS MOVUL 39(Re), Rb : 2480 
FEFC C4 7 OFA 328: OV! ; nat ; 36 2 ; 
a 3 0300 MovaB’ LeRDe EAS NODE_DESC+4 heeed : 
FF68 = C4 1 BBs Bh Bate  Aael $2(R2), rb > 2487. 
rreC gs 80 MR Soot bear aes TERMINAL _DESC : 2489, 
0 As Boat moviBL (A0)CR2), TERMINAL _DESC+4 ; 2691 | ; 
te gh PE Bus gait. ge] | 
iy we 2 0 i$ 00 ; MOV IAL EROS R24, 988 be sc+s 638 ; 
FF60 C4 £023 Se 6 A Tstt 3o(Re) 500 : 
FFA C4 ae 4 eo Ses aoe : $501 
$8 0 ove Being). EATRY DESC*4 iiged 
fron Ca 24 hg i ii 368: ROVIUL att >; RO : 3308 : 
eee 8 is 43 ROVIBL TeRO)ERES, QUEUE DESC #4 : 2510, 
AB AG Bots OF bo8e pty ERSION, 2 : 2512. : 
AC AG 4 j 3 5: neo NOS _ ' 

02 re an 9 MOVZWL 42(R2), 

50 ca he Tk Rates BEQL 
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¥64-000 14- ~Sep-1 382 73 3¢: 4 DISKSVMSMAS ehechce’secSacc.e32:1 * age 18) vl 
FF C4 6042 9A 0035F MOVZBL (RO)CR2], ADDRESS_DESC : 251 ; 

fron fe 1 nog E 5 MOVAB WtRoyeRas ADDRESS _DESC+4 3 3 1 : 

0 Ae 36 388: MOVZUL 44 (RZ), rb ; 2519. : 

BB AG 6042 9A 0037 MOVIBL (RO>CR2], REMOTE. ID DESC : 2522. : 

BC AG 01 AQGE 9 0057 MOVAB — 1<RODLR 5, REMOTE_IB_DESC+4 > 2526 : 

0 70 39%: BRW 5$ + 24 3 

02 60 07 } 3 40$: CMPZV H #7, (RO), #2 3 2529, : 
0084 BRW 44$ : 3 

52 b6 A 41$:  MOVL RO, R2 ; 536 3 

CO OG 0 B MOVL #8, START_TIME_DESC 3 25 ; 

(4 AG 06 A 1 MOV 4(R2), START TIME_DESC+4 ; $40 | : 

FF4O f p 0 36 Ist F INISH_TIME DESC + 2541 : 

6E 08 v6 0 9¢ HOVE #2, (SP) ; 2546 | : 

FEES ef F 6 Al PUSHAB ELAPSED_TIME : | ; 

(4 Ad DD 00 a3 PUSHL START TIME DESC+4 : : 

FFG 4 0D 00 PUSHL PINISA TIME DESC+4 ; 3 

46 4 FB O3AC CALLS : : 

01 0 £8 O03Ar BLBS STATUS, 423 ; : 

FF28 C4 08 00 00 BE 42s: MOVL 48, ELAPSED_DESC + 2547 ; 

(BAG 04 DO 00388 43$: MOVL TA TUS _BESC : 33¢ : 

CC AG o¢ A2 9E 00 BC MOVAB Taina) status DESC+4 + 255 3 

DO AG 6 8F 9A 003C¢ MOV ZBL STATUS_TERT DESC + 2554 3 

D4 AG 00B0 C4 9E 003C6 VAB Status. TEX? “BUFFER, STATUS_TEXT_DESC+4 : 2555 3 

DO «AG «OOF 003CC PUSHAB STATUS TEXT DESC : 2557 : 

CC B4 DD O03CF PUSHL aSTATUS DEST +4 : ; 

68 03 FB 0302 CALLS #2, TRARSLATE STATUS : 3 

FF30 C4 4 p 030 MOVL #4 sy UTION“DESC + 2561 3 

FF34 C4 10 A2 O3DA MOVAB 16(R EXECUTION. DESC +4 + 2562 : 

FFIO 86 C4 04 0 E MOVL 4, CPU_TIME_D + 2569 : 

FFI4G «6 C4 146 A2 99E OO3E MOVAB 20(R2) pues: TIME “DESC ; 379 3 

FEEO C4 00 14 A2 000186A0 8F 7A OO3E EMUL #100 o6 TR2), QUAD. CPU_TIME : 257 : 
FF78 C4 4 DO 003F MOVL #4, PAGE_FAULTS : 526 : 

eS ke "8 Oe BB oocos movas going) PA Pack ESEADLIS. atts ttt 

bc A 1c AZ 9E 00406 HOVAB eB (RO) PAGE READS DESC +4 2 9982 3 
ee: 0 a gt a Be) 

Be AG 24 «= A2 5 418 MOVAB seine) B PAGE Fite DESC +4 ; 39 3 

FFIB = C4 04 p 41 MOVL # DIRECT T 10_pest ; : 

FFIC }§6C4 28 «A 3 MOVAB 40(R2), DIRECT 10 DESC+4 : 259 : 

FFOS 86 C4 04 p MOVL #4 aur ene 10 DESC : 2601 3 

FF ¢ C4 2c A2 ; MOVAB 44(R2), BUFFERED_10_ DESC +4 + 2602 3 

40 AG 04 MOVL #4 OL UMES DESC™ > 26 3 

44 AG 30 M2 9 00437 MOVAB 1 » VOLOMES DESC +4 : 3607 : 

03 60 07 01 f 44$: CMPZV #7, (RO), #3 3 2611 3 
4 44 BNEQ tog ; : 

04 8 38 doce Bear cas , or 

FFSO 80 C& 4 AQ QA O044A MOV2BL (RO), IMAGE _FILE_DESC > 2642 3 

FF54 C4 5 Aad 9E 00450 MOV 5(RO). IMAGE~FILEDESC#4 > 2644 3 


sone 


C 
C 
D 
Dd 


oc 
FF 96 


POM —-FOOfOwW—COoComoom Sarmeme 


00 


00 


OYOOON YS POP -O— FP PWP-OWV PEP MOO FP VP 


> 
NSOOW——SooO 


GW MW OO Om OO OM SG OCT9g 


MOO-WS —M S WUMIS MS WUD —"OOO0COnm 


O09 99 9 OWUIMOWVNID 


-—omnoOoo CoCo Cc 090 —-"--"0™" 


C 
F 
3 
3 
E 


5.8 “19 
~Sep-19 


45$: 
46$: 


O4A5 
47$: 
C 


48$: 
49$: 


50$: 


51$: 


=e 
a Saaeae o> BE 
PRs ADDOADESHK HBDODAHKE GH 


—BWNYVNS LF BDMNBVMNMNLS LL LBHMS LLB 


Vi BM Benn — SP" 
fon fe * ae Seem 


VAX-11 Bliss $032 Ve 


DISKSVMSMASTER: CAC 


“tai 


att 


eg 
B IMA 

beet DESC 
TAL aS RO 


inact DESC +4 
; SUBTYPE _DESC+4 


#7, (RO), 

0) 

~DESC4 
7, (RO), #5 
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as Be] 
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oO 
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- USER_DATA_DESC 
> USERT “DATA_DESC+4 


7, (RO), #8 
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» R2 
STATUS_DESC 
‘ ) STATUS DESC+4 


xt 
TUS _DEST+ a 
TRANSLATE STATUS 


DES 
TIME _DESC+4 
s¢ 


(SP) 


APSED_TIME 
ART TIME DESC+4 
NISAL tt DESC +4 


1s 
ae DESC 


oo 
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; Routine Size: 1429 bytes, Routine Base: CODE + 0890 


08 A TST R2) , | 
« He a fea is 
BO AG § A 538 Sovt ; . QUEUE_TIME_DESC 733 
B4 AG 08 A VAB ach .. QUEUE TIME DESC #4 ; 
FF ( : Ist FIN SH_TIME_BESC ; tid 
6E 9 D 9 VL a2. (SP) : 2739 
C PUSHL : 
FEES CC SHAB ELAPSED_TIME ; 
4 AS DD 0054 PUSHL QUEUE TIME DESC+4 : 
FF44 «6 C4 ODD 0054 SHL FINISA TIME DESC +4 : 
$6 f 49 CALLS @ L 1685 x 3 
4 0 £9 0054¢ LBC STATUS, 58$ ; 
He & RS BP HEEEL SF ailka ial ERE IEE secc ie 
FEEO C4 00 18 A2 000186A9 F 7A 0055A EMuL #100006, 247 the) “H6° QUAD. CPU_TIME + 2749 
FO AG 4 DO 00566 MOVL #4, SYM{PAGE : 2753 
Fo OG 1c A2 56A MOVAB (R2), “SYM_PAGE_DESC+4 3 2754 
EB AG 04 p 36F MOVL  &4 5 #_Q107D + 275 
EC AG 20 A2 5 ; MOVAB seiR es ~ Sym Q10 DESC +4 + 275 
EO Ab 04 p 57 MOVL svA TD + 2763 
E4 Ab 2 =«A 57¢ MOVAB Str R2), ~Syn7 GET_DESC+4 + 2764 
50 5 p 381 55$:  MOVL Brent ET. RO ~ t 2776 
51 02 AO 5 MOVZWL a(R ; 
67 51 : 288 ADDL2. R1, PACKET ; 
FCAD 5 BRW 248 : 2399 
50 01 38 56$: MOVE #1, RO ; 2780 
50 592 57$: CLRL R + 2782 
594 58$: RET ; 
| 


<P> 


7 
e 
. 
° 
. 
a 
a 
7 
a 
- 
. 
° 
e 
. 
a 
. 
e 
a 
o 
a 
. 
ae 
e 
. 
oe 
e 
© 
e 
. 
* 
8 
eo 
° 
2 
. 
. 
e 
o 
. 
° 
e 
7 
e 
. 
7 
° 
€ 
. 
e 
° 
a 
. 
© 
. 
e 
. 
o 
+ 
” 
° 
a 
. 
Ld 
e 
e 
. 
a 
- 
@ 
e 
© 
eo 
. 
e 
7 
a 
7 
os 
. 
e 
. 
a 
° 
@ 
io 
e 
. 
2 
a 
o 
io 
e 
> 
e 
2 
e 
. 
o 
. 
e 
2 
e 
. 
o 
o 
o 


S32 


a j 
1B-sen-1984 28:56:11 WAReHT BLinec BZ vé0-743 | age, 66 


Select_or_reject (address); | 
Select_or_reject (entry); 


SeSscr 


Select_or_reject (ident); 
Select_or_reject (image); 
Select_or_reject (job); 


3 1388 r 3 } ROUTINE RECORD_SELECTED (BUFFER) = 3 
; 13 785 1 === ; 
3 1 7 ! ‘ 3 
3 \3e , ! : Functional description : 
: 196 789 1 This routing tests the record pointed to by BUFFER against | : 
; 1964 ? 1! user specified selection criteria. If any test failed ‘ 
; 1292 6 } then an immediate failed return is made. Else true is retured. ; 
; ; : 
3 1967 795 1! Inputs: : 
3 1298 rs ! ! 3 
; 138 95 : BUFFER = Address of the current record : 
; 1970 7 1! : 
3 1) 44 f : Outputs: : 
; 1998 7 1! True or false. There are no error exits/returns from this routine. : 
3 19746 800 1! 3 
5 6 Re bia} 
; 1377 608 BEGIN | ; 
; 1379 B05 ¢ MAP buffer: ref bblock; ! Define buffer block format : 
: 1981 80 CRO | ; 
3 19s m 280 SELECT_OR_REJECT (name) = é 
; Hb Mm 280 IF~PRESENT (name) then : 
3; 19 Mm 2810 BEGIN ; 
3; 1985 M 2811 LOCAL FOUND . VALUE; : 
3 19 M Big OUND = LOOKUP_SY YRBOL (mame, _ZNAME (1 * DESC’), VALUE); ; 
3 198 M 281 IF .FOUND XOR TENAME(name,* SWITCH") THENTRET Gan’ FALSE; ; 
3; 1988 814 ENDS; é 
1990 HE 
i 193) a : 
; 1998 B19 3 3 ; 
3 1994 330 ‘TEST THE RECORD -- : 
3 1995 821 : Using tables and values built by PARSE. cee test the in ue F 
3 ioe 8 § : record. Any time a record fails a seléction test, or matc : 
3; 199 8 : an exclusion test, return immediately with an indicator to - 3 
3; 1998 824 : the secondary output stream. If all tests are passed, then poeure 3 
; 1999 825 ¢ | TRUE . | : 
: Soot B59 § | | 
3 54 8 3 Select_or_reject (account); | 3 
s 200 : : 
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=> 


Select_or_reject (node); 
Select_or_reject (owner); 
Select_or_reject (priority); 


Ste 


Select_or_reject (process); 
Select_or_reject (queue); 
Select_or_reject (remote_id); 


WO OONOUS WO 


Ww 


Select_or_reject (status); 
Select_or_reject (terminal); 
Select_or_reject (type); 


t+ 
: Select or reject based on /UIC qualifier. | 


AA AAIPITONININININYININ 2 OO Oe 


begin 


local 
uvicg, uicm, value; 


w 


SOON US WOO 
co 
~N 
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uicg = lookup_symbol( uic_group,. vic group desc . value ); | 
uicm = lookup_symbol( uic_member, uic_member_desc, value ); 


'¢ 

! First, if both a group and member were specified, see if the record matches 

i BOTH. This is done so that a selection of /UIC=C1,3] won't reject records of 

: She form (*,3]. Then check for EITHER a match on group or member, but not 
oth. 


| 
i both | 
i | 
| 


RRRRERKEEK 


present( uic_group ) and present( uic_member ) 
en 
Pa. ( .uicg xor .uic_group_switch ) and ( .uicm xor .uic_member_switch ) 
return false ) 
else 
if present( uic_group ) 
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PPAAAAA AI 
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Ra ( .uicg xor .uic_group_switch ) 


NOUS WN OO CONAN WwI 


ss 


en 
return false 
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else if present( uic_member ) 
then 


iY ( .uicm xor .uic_member_switch ) 


Wwr—Ooew 


return false; 
end; 
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i Check to see if this is the oldest or newest record 


; 2071 97 Select_or_reject (user); 
; ore 38 
3; 207 
3; 2074 9 
3; 2075 90 ‘ 
3 B78 308 'TEST DATES == 
$95 
; 207 905 : encountered. Update the date watermarks if so. 
; oat 208 ! 
; oes 908 if COMPARE QUAD (..date_desc_addr, lssu, first_date) 
3 SS? 444 then MOVE_QUAD (..dafe_deSc_addr, first_date); 
; 2085 911 if COMPARE QUAD (..date_desc_addr, gtru, last_date) 
: 086 4 then MOVE_QUAD (..dafe_deSc_addr, last_daté); 
3; 208 91 
3; 2088 914 
3; 2089 915 
; 2090 916 ! 
3; 2091 917 ; BEFORE_DATE and SINCE_DATE define a date gongs that the 
; $03 918 ! record under test must satisfy. DATE_DESC_ADDR points to 
3; 209 919 : one of three possible dates in the record fo use in the 
3; 2094 920 ' test. If the date pointed to does not fall inside the 
; 2095 921 : range then return to the caller. 
3; 2096 9 ; : 
3; 2097 +] 
; 2098 924 if (COMPARE QUAD (..date_desc_addr, gtru, before_date)) or 
3 2099 925 (COMPARE QUAD (..date_desc_addr, [ssu, since_date)) 
; 2100 9 $ § then return § false; 
3; 2101 7 
; Oe 928 
3: 210 368 ‘ 
3 2104 930 : If code path falls through to here then the record has passed all 
3 +4 38 selection and rejection tests so count it as selected and return true. 
3 2107 2935 
3; 2108 934 selected = .selected + 1; ' Bump the selected record count 
3: 2109 soa return true; ! Default is selected 
: 2110 238 
3 2111 293 1 END; 
B= FIRST_DATE 
B= LAST_BATE 
B= BEFORE DATE 
B= SINCE _BATE 
003C 00000 RECORD_SELECTED: 
-WORD Save R2,R3,R4,R5 3: 2783 
5 900000006 0 9 0002 MOVAB LOOKUP SYMBOL. RS ; 
4 00000000G 00 9€ 000 MOVAB QUALIFTERS, R 3 
3 00000000" EF 9€ 0001 MOVAB UIC GROUP SWITCH, R3 ; 
§ BC AE 9E 0001 MOVAB -68TSP), SP F 
1 64 €9 00018 BLBC QUALIFIERS, 1$ ; 2828 
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44 Boone 
F OOG7A 
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E8 OO08A 
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fF O08 
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3Bc 11:54:58 — DISKSVMSMAS TER: 


SP 
ACCOUNT _DESC 
=(SP) 


#3, LOOKUP_SYMBOL 
Ta eae RO 


a UALIFIERS+1, 2$ 
VALU 

ADDRESS_DESC 

#1) 


#3, LOOKUP_SYMBOL 
ADDRESS_SWITCH, RO 


RO, 
#5. QUALIFIERS, 3$ 
ENTRY DESC 


#3, LOOKUP SYMBOL 
ENTRY SWITCH, RO 


QUALIFIERS 
4$ 


° 
° 


VALUE 

IDENT ESC 

#3, LOOKUP_SYMBOL 
IDENT SWITCH, RO 
QUALIFIERS+1, 5$ 
VALU 

IMAGE _DESC 


#3, LOOKUP_SYMBOL 
IMAGE SWITCH, RO 


, 183 
#1. QUALIFIERS+1, 7$ 
VAL 

JOB_DESC 

rT) 

#3, LOOKUP_SYMBOL 
J06_ SWITCH, RO 

#4. QUALIFIERS*1, 9% 
NODE_DESC 

n 


#3, LOOKUP_SYMBOL 
ODE SWITCA, RO 


G, 
#5, QUALIFIERS+1, 11% 


CUNER DESC 


& 
#3, LOOKUP SYMBOL 
OWNER SWITCH, RO 


QUALIFIERS+1 
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2 e . 1 VAX-11 Osten scact sae a 

Ieogeeet9 4 7:39 58 


BGEO 138 : 
8 00008 SHAB VALU * ; 
20 A OF OU0DR PUShAB 1 pep ses ; 
“a HRB BS Bl sree tren. 2s 
PEE a. RR Batre ; 

OED : HAB e 
wal pins Petisssese 2 
en) rn on 

0 s » 248" 7$ : 
01 £1 00104 158 PUSHAB QUEUE DESC : 

28 OA 10¢ #1 OL : | 
sid 4s Se £3, ,Ookursy¥gg Pos 
RS £0 OOTTS BLBS RO. RS+2, 198 

a ae Bo} Pe ees OS’ GuALIFIE 
a3 oF O12! aa PUSHAB REMOTE_ID_DESC : 
A 
0126 HL #19 YMBOL 
ins 00128 CALLS #5. LOOKUP syM@OL 5 ase 
a3 £0 00190 LBs RO, ERS+2, 218 
EC 8D EB Ools) 188: BBC) #6. QUALIF ; 
BET 00184 198: PUSHAB sc 
06 3H 139 PUSHAB STATUS_DE ; 
30 ¢ OF 001 : PUSHL # LOOKUP_ SYMBOL ; | 
FF38 1G bp 00140 te Me SWITCH, RO : 2856 | 
ro AS suis 208: aL8s #1, QUALIFIERS*3, 238 | 
at gee ; 
34 OA 154 4 495 OL : | 
ree ot 00158 CALLS #8, LOOKUP ITCH. RO : 2856 
19 DD 015A C it TERMINAL _S@ : 
FeSO 0913p $: BLBS n0. QUALIFIERS*3, 255 ; 
f3 ET ootes O88; bbe : 
03 §) Gotes PUSHAB TYPE DESC ; 
ry 7 ; 
F 0016C SHL  # P_SYMBOL : 
rf c OD aE CALL TYPESWITCR. RO : 2867 
03 017 RO, 318 
F 50 §8 O17 35§ PUSHAB U1C-GROUP_DESC 2 
HS AS 9F 0017F PUSHL # LOOKUP_SYMBOL > 2868 
‘ Pe Ook ROVE. RO, UICG 
i op i A PUSHAB UIC MEMBER_DESC 
ee ee 
30 ai of 01 PU 


9 
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yo4=000 12-9 08= 1984 $f: 30:1) DIEKSUMEMASTERSCACE SRC SACC.B32:1 9° 43) 
$5 FB 19 CALLS #3, LOOKUP_SYMBOL ; 
j DO 0019 OvL RO, UICM ; 
50 04 Ab 01 EF 19 EXTZV #0, #1, QUALIFIERS+4, RO t 2877 
9 04 Ab 01 €1 lal BBC #1. QUALIFIERS+4, 26$ : 
0 38 : C1 001A6 ADDL3) OU C_GROUP_ SWITCH, UICG, RO : 2879 
1 F9 1AA BLBC ~=—._«RO, "30 ; 
9 1 OO1AD BRB : 
06 E9 OOIAF 26$: BLBC RO, 278 : 2883 
50 a 1B2 ADDL3 yi GROUP_SWITCH, UICG, RO + 2885. 
A 11 186 BRB $ : 

08 06 Ab | £1 00188 27$: BBC #1, QUALIFIERS+4, 30$ : 389 
51 04 AS C1 001BD 28$:  ADDL3 UIC_MEMBER_SWITCH, UICM, RO + 2891 
6c 50 €8 001C2 29$:  BLBS , F | 

12 64 04 4 01C¢5 30$: BBC #4. QUALIFIERS, 32% + 2897 

40 AE F OO1C PUSHAB  V ; 
AB Ad 9F OOICC PUSHAB USER_DESC F 
04 DD OO1CF PUSHL : 
65 ; FB 00101 CALLS #3, LOOKUP_SYMBOL : 
50 08 A3 CO 00104 ADDL2 USER SWITCA, RO : 
56 50 €E8 00108 318: BLBS RO, : | 
50 024¢ 03 00 001DB 32$:  MOVL #§ @DATE_DESC_ADDR, RO + 2908 
o2zec C 04 Ad D1 001E0 CMPL 4(RO)> B44 : | 
05 12 O1E BNEG 33S F 
0268 3 60 01 OO1E CMPL (RO), B : 
05 ie OOTED 33$: BGEQU 34$ : 
0268 C 60 7D OO1EF MOVa (RO), FIRST_DATE + 2909 
0264 ¢ 04 AO 01 OO1F4 348 CMPL ss & (ROS, B+ > 2911 
05 12 OOIFA BNEG 35$ : | 
0260 3 60 D1 OO1FC CMPL =-:« (RO), B : 
05 18 00201 35$ BLEQU 36$ : 
0260 60 7D 00203 MOVa (RO), LAST_DATE : 2912 
0254 ¢ 04 Ad 01 99 08 36$ CMPL =«-_«& (ROS, _B+4 + 2924 
09 12 0020E BNEQ 373 : 
0250 3 60 01 00210 CMPL =-« (RO), B : 
04 1B 00215 BLEQU 38$ : 
18 11 00217 BRB 40$ : 
16 1A 00219 37$ BGTRU 40$ : | 
025c C3 04 AO D1 00218 38$ CMPL © 4(RO), B+4 > 2925 
05 12 00221 BNEQ 39S : | 
0258 C3 60 01 00223 CMPL (RO), B : 
07 1F 00228 39% BLSSU  40$ ; | 
oc a3 06 0022 INCL SELECTED > 2934. 
50 01 p 00 p MOVL #1, RO : 2935 
4 00 RET : 
50 04 00231 40$:  CLRL RO : 2937. 
04 00233 RET ; 


3; Routine Size: 564 bytes, Routine Base: CODE + 1125 


3 2112 2938 1 


72 —————————— 
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1a-Sep-19 4 $F :29:3h STK SUMRAASTER-CACE SRC SACC.832:1 9 14) 
3 21146 939 1 ROUTINE PARSE_COMMAND = 
3 2115 940 1 
: 19 941 1 lee 
; 211 3e8 1! 
3 118 3e7 : Functional description 
: 2120 945 1! This routine is called from the main loop to process the command 
3; 2121 ae8 & line. Based on the presence of qualifiers and modifiers, routines 
3 } ¢ ot : are called to parse the Line. 
3 , ¢ 208 : } Internal tables are defined, based on command Line values, for later 
3 processing. 
3; 21 : 328 1! ° 
3: 21 926 1 ! Output parameters 
3: 2128 955 1! 
3 2129 954 1! Any errors encountered are RETURNed immediately. 
3: 21 955 1! TRUE is returned on a normal exit. 
3: 2131 328 1! 
3: 21 ; 957 1 !e<=- 
3 213 958 1 
§ if 959 BEGIN 
3; 21355 960 
3: 2136 961 UNDE CLARE 
3; 2137 906 uic_stb, 
3 138 96 uic_ktb; 
3; 21 964 
3 2140 965 EXTERNAL 
3 2141 966 uic stb, 
3 | 967 uic_ktb; 
3 214 968 
3 2144 969 LOCAL 
3; 2145 970 first, ' First time switch 
> 2146 971 temp; ' Temporary work area 
Bo BR bom 
3 2149 974 desc:  bblock pescsi.¢ bln ! Dynamic work descriptor 
; 130 346) preset(Cdsc$b_class] = dsc$k_class_d), 
3 136 3444 
3: 215 978 ! 
: 2154 Soap 'DEFINE KEYWORD TABLES --- 
3 2155 980 ! Define a keyword table for LIBSLOOKUP_KEY. Associate a number 
: 2156 981 ! with each keyword. 
3: 2157 386 : 
3; 2158 9 
3 2159 #3 
St BBS omeaherened: | Sattoterytit peer’ eg nee 
Py e a ° M -Lustomer Cc 
: 166 p 989 (FILE ad (*FILE')) ' File recor 
> 216 P 988 (IMAGE ad ("IMAGE") i =Image termination 
+ 2164 P 298 (LOGFAIL, ad (*LOGFAIL'S), i Login failure 
3 2165 P 2990 (PROCESS, ad (‘PROCESS')), ' =Process termination 
: 106 P 2991 (PRINT, ad ("PRINT')) ' <print ob termination 
3: 216 P 299 (SETTIME, ad (*SETTIME'S), ' System ef sy 
: $18 P 5994 (ONENOUN, 89. ('ONRNOWN'D). Scatbaoun Gaerh tena, 
: " a "Rs ! Unknown record ty 
3 19 P 2995 (USER, ad (‘USER')), ! User messages 
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ah 
: 


), 
word: $lib_key table ( 
ad Panftatss 


( 
ad ('DETACHED')) 
IvE, ad (*INTERACTIVE')), 
K ad (*NETWORK')) , 
(SUBPROCESS, ad (*SUBPROCESS')), 


' Keyword table -=- process type 
“Batch process 
-Detached process 
“Interactive process 
“Network process 
“Sub process 


vuvvvvU 


BSSERRRR OREN o co SSeS SSS SESS SSS SESS 
Ww 
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' 

‘PARSE COMMAND LINE MODIFIERS --- 

' Call routines as necessary to parse command Line modifiers and 

' value Lists. Exit immediately if any errors are returned by the 
parsing subroutines. 


map_qualifiers (); ! Establish bitmask 


' 
: PARSE /ACCOUNT VALUE LIST -=- 


t = true; 
e GET_VALUE (*ACCOUNT', desc) do 
BEGIN 
f first 


1 
then BEGIN 

account_switch = ogee ns ator (desc); 

if -desc Cdsc$w_length] neg 0 

then perform (add_symbol (ACCOUNT, desc, 0)); 
first = false; 


END 
else perform (add_symbol (ACCOUNT, desc, 0)); 


DED at st tk kh td td eth eh eh ed ed ed 
Soooooc[“eo ooovovond 0209 OD CD 
SSLESRANLSSSLESRIN LE SSVEALANVESSSVSARAS 


ooooo 


' 
i PARSE DATES -- 


NOUS WIN —O 


perform (parse_dates ()); ! Handle /DATE /BEFORE /SINCE 


ae aa 4 ae tt 
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M—C CONOVER -O0@ 


‘ 
i PARSE /ADDRESS VALUE LIST -- 


PRIPDPIPIFIPIPPIPDPPIMNIPIPIPINPINPINI HE & BB & EMP IPIP/INPIPIPPPININIPIPPPIPIPPIPUPIMPUPUPRIPUNPPUPD 
cw ao] 
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zoe 

mae2mn>w 
aa 
mPece 
Bo Ler 
Pr @ 
om 
“so 
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Be Be Se Be Be Se Se Se Ge Se Be Se Se Be Se Ge Be Ge Ge Ss Ge Se Ge Se Fe Se Ge Ge Se Ge Se Ge Se Se Se Ge Ge SH Ss Se Se Se Se Se Se Se Se Gee Sse Se Se Se Ge SH Stee 


NOUS WN OO 


Ponmonononoponofory 
Romonoforoforory 


First = true; 


frente cs 


| it? 
¥6e-000 Fares ra aS et et tH eto) a 


While GET ye ("ADDRESS', desc) do 


eecis -first then (renoent” a = strip_negator (desc); first = false); 
fjdese Cdsc$w_length] “neq 0 then 
f not (LibScv + &, ! Convert decimal to binary 
i we pet ater “byte count q input string 
S) 


wn Oo 
OOOCC0O 
PPA 


WO OODNOUSW 


desc 


ww 


-desc Gsc3e_ pointer “address of input string 
dsc$a_pointer i address for resultant value 
then ; ional. return  as9s. syntax, 1, desc); } Tet l user if error occured 
desc ([dsc$w_length) 1" Set symbol Length 

Peo (add_symbol heeds. desc, 0)); 


desc 


FSFSS 


aan 

e3 6? 

per) ae 

re O70 8 

r¢ 071 'PARSE /ENTRY VALUE LIST -- 

4 Ore ! 

48 07 

49 074 First = true; 

50 075 While GET VALUE ("ENTRY', desc) do 

51 O76 BEGIN 

26 07 if .first then (entry switch = ptete _negator (desc); first = false); 

5 ore if .desc Cdsc$w_length] neq 0 then 

54 07 BEGIN 

55 080 If not (LibScvt_dtb ( ! Convert decimal to binary 

28 081 dsc$w_length) ! byte count of input string 
5 oes qecze =pointer4 ! address of input string 

38 eer -desc (Cdsc$a_pointer 5) ' address for resultant value 


oO 
oo 


then ignal_ return _(msg$_syntax, 1, desc);! Tell user if error occured 
desc Cdsc$w_length) =4; ! Set symbol Length 
pocvere (add_symbol (entry, desc, 0)); 


END; 


a 
wn—oCo 
3 
w 


MIOMPPOPoPofPefofnenononrnroronnr 
NIASSSISETIARZS 
oO 
oo 
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sas 
&- 


true 
bey VA‘ue (*IDENT’, desc) do 

it first then (ident ey = pret _negator (desc); first = false); 
BE 
If 


then pign nal_return (aisg_ syntax, 1, desc);! Tell user if error occured 
desc ([dsc$w_ length 


! Set symbol Length 
perfor (add_symbol CIbeNT, desc, 0)); 


| 
! 
: a 


75 19% eine** Cdsc$w_length] neq 0 then 
1 § not ma ew htb ( ' Convert hex value to binary 

28 10 -desc Casc$w_length) i “=byte count of input string 
104 desc qscze pointer ! address of input string 

30 : 5 sdesc (dsc$a “pointer §) i eaddress for resultant value 

8 1 

38 : 

84 1 
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' 
‘PARSE /IMAGE VALUE LIST -- 


First = true; 
While GET a ("IMAGE', desc) do 
1 J icat 
then BEGIN 
mage_switch = ateile ~Tegator (desc); 
if -dese Cdsc$w 


t 
t perform (add er CTMAGE, desc, 0)); 
first = false; 


ND 
oS perform (add_symbol (IMAGE, desc, 0)); 


' 
: PARSE /JOB VALUE LIST -- 


t 
wh T_ VALUE ("JOB", desc) do 
BEGIN 
ft first 
then 1 


GIN 
ob_switch = strip_ne ane (desc); 
desc 6 


a dsc3w_ eed. 
per fora (add- —_ t (J desc, 0)); 
ree = false; 


lse perform (add_symbol (JOB, desc, 0)); 


' 
: PARSE /NODE VALUE LIST -- 


First = true; 
While GET VALUE ("NODE’, desc) do 
EGIN 
f first 
then BEGIN 
node_switch = stri snegator. (desc); 
if -desc Cdscbw_length] neq 0° 


then erform (add_symbol (NODE. desc, 0)); 
first = false; 


ND 
dy perform (add_symbol (NODE, desc, 0)); 
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' 

: PARSE /OWNER VALUE LIST -- 

First = true; 

While GE +7 ("OWNER', desc) do 


eesie first then (owner er = —_ negator (desc); first = false); 
f desc Cdsc$w “fengthi ne — 


If not (LibScv + ( ! Convert hex value to binary 
-desc length) i “-byte count of input string 
desc dca =pointer| i ceddress of input string 

dsc$a_pointer))) i eaddress for resultant value 
then signal return aes. syntax, 1, desc);! Tell user if error occured 
desc (dsc$w_length) =4; '" Set symbol Length 

pocvere (add_symbol (OWNER, desc, 0)); 


END; 
: 
: PARSE /PRIORITY VALUE LIST -- 


VALUE (*PRIORITY*, desc) do 


tiest then (priority_switch = strip_negator (desc); first = false); 
desc Cdsc$w_length) fieq 0 then 


a a a a = ss a as = a a 


SN Sewsnscn Ss SeeSAF CR SSS LEAL SSSENS OPE SIS LF ISOS 


not eee dtb ( ' Convert decimal value to binary 
-desc Gsc$u ~Length) ! byte count of input str ng 
.desc [dsc$a_po inter} i -address of input string 
-desc Cdsc$a_pointer])) -address for resultant value 


then ignal_ feture (asgs. syntax, 1, desc); :! Tell user if error occured 
desc (Cdsc$w_length Set symbol length 
perfor (add_symbol (PRIORITY, desc, 0)); 


T 
i PARSE /PROCESS VALUE LIST -- 


rue; 
7 (*PROCESS', desc) do 
CAL process_value; 

etirst 


PARP IPIPIPIMPIMININIPIIND HB BB STIS MAP IPIPIPIPINIPDPIPI HE BB DDT AIPPOPPOPPPOPNOPY 
cn 
a 
~~ 
-w" 
eon 
g* 
—O —. —.@) 0 
~mMm----rre 6 
ao &s6 
—e « S35 
r 4 
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: 
if 


Be Se Se Se Se Se Ge Se Se Se Ge Se Se Se Ge Se Se Se Se Ge Ge Fe Se Ge Se Ge Ge Se Se Ge Ge Gs Gs Se Se Se Se Ge Se Se Se Ge Fe Se Se Se Se Se Se Ge Se Ge Se Se Ge Ge we 


tet 000 WSoseoctome 28:Bes]) yey eusetc de V4 0e7eg 


; 2399 : then BEGIN us it . ‘ Ys 

; roces “ : =s§ ator sc); 

3 ae age cCésebu, “Rengeh ine as 

3 UP (desc, process nervord. process_value); 
3 2 perfore (ADD_S PROCESS, .process_value, "0)); 
3 4 first = alse: 

rs & ND 

FY 4 else I 

3 4 LOOKUP (desc. process keyword, process_value); 
3 5 pertore (ADD_SYMBOL (PROCESS, .process-value, 0)); 
3 ; END; 

3 2415 4 

3 § re 

; ri} ‘ 

3 : $7 : PARSE /QUEVE VALUE LIST -- 

3 45 

3 1 4 First = true 

3 ; 4 While GET VALUE ("QUEUVE', desc) do 

3 4 BEGIN 

3 4 4 if first 

3 5 29 4 then BEG! 

3 $ 1 4 qyeve.s switch = strip_negator Cees ); 

3 6 4 desc Cdsc$w_ ~Longtad 6 eg 

3 4 then perform (add_symbol (QUEUE, desc, 0)); 
3 39 4 Hirst = false; 

3 1 3$ else perform (add_symbol (QUEUE, desc, 0)); 

3 $ : END; 

3 38 

3 5 rs 

; 6¢ iPARSE /REMOTE_ID VALUE LIST -- 

3 64 

: 2440 65 First = true; 

3 2441 $3 While GET VALUE ("REMOTE_ID', desc) do 

3 6 BEGIN 

3 6 f first 

3: 24446 $ 4 then BEGIN 

3 2445 4 remote_id desc ta = strip_ anegator ¢ (desc); 

3 71 4 if desc Cdsc$w ~tengtn oat 

3 72 4 sz perform (add-symbol (REMOTE_ID, desc, 0)); 
3 244 73 4 fest = false; 

: 74 & END 

3; 2450 75 else perform (add_symbol (REMOTE_ID, desc, 0)); 

3 2451 7 END; 

3 £28 7 

3 245 7 

3 24546 7 

3 2455 80 ! 
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; PARSE /REPORT, /SORT, /SUMMARY <= 


Perform (parse_keys ()); 


' 
i PARSE /STATUS VALUE LIST -- 


3 First = true; 

F While GET 7 ("STATUS’, desc) do 

; “3 of first then (status ety = strip_negator (desc); first = false); 

3 26 9 if .desc Cdsc$w_length] neq 0 then 

3 247 BEGIN 

3 247 LOCAL Rig omy 

3: 247 If not (Llib ( ' Convert hex value to binary 

3 2474 od a length) i “=byte count of input string 

3 2475 — dsc$a pointer i ~address of input string 

3; 247 -desc Cdsc$a_pointer 5) ! eaddress for resuitant value 

3: 247 then pigngl ret parses an. syntax, 1, desc);! Tell user if error occured 

3 $78 desc Cdsc$w_l 24; ! et symbol length 

3; 246 TEnot” te = orn _symbol (STATUS, desc, 0); 
; ; : not .status_status then return .Status_status; | 
3 26 END; 
3; 246 5 
3 24 

3 : 5 | 
8 : : PARSE /TERMINAL VALUE LIST -=- | 
3; 2489 
3 2490 First = true; 

3 2491 While GET_ VALUE ("TERMINAL’, desc) do 
3 249 BEGIN 
3 249 if first 
3 2494 then GIN 

3 2495 terminals switch = strip_ shegator (desc); 
3 rhs desc Cdsc$w ~tengt on 

3 249 then perform (add_symbol (TERMINAL, desc, 0)); | 
3 2498 first = false; 
3 2499 END 
3 301 else perform (add_symbol (TERMINAL, desc, 0)); 

: Py | 
3 8 
3; 25 
3 2505 ‘ 
3 236 'PARSE /TYPE VALUE LIST -- 

3 2 ; 

3 28 First = true; 

: 19 While GET_VALUE ("TYPE', desc) do | 
3 313 BEGIN 


LOCAL type_value; 


9 
1Frsep-1964 28:56:11 WANT! oliee=82 v4.0-743 | Page, 79 


v6 


$m 
3 


if .first 
then BEGIN 


WIG 


Bn 3 : 
3 251 3 
3 2515 & switch = strip_negator (desc); 3 
; 251 yyP* .desc dscba. Length’ neq 0 : 
3; 251 then BEGIN F 
3 1 LOOKUP (desc, type hezverd. type_value); : 
: 3 2 ? Bios" (ADD_SYMBOC (TYPE, .type_value, 0)); ; 
3 2521 6 4 first = false; ; 
3 ¢ 47 4 END | 3 
: $557 rh et ) Eble? Stuns; tee. haved 3 Lue? | 
3 esc, e_ keyword, e_value); : 
3 é 31 pec tore (ADD. SYMBOL (TYPE. type velue. 0)); : 
; Py j o 
3 END; é 
. | 3 
: $808 ae : 
; ; 55 iPARSE /UIC VALUE LIST -=- : 
: 35 ; so S| | 
: 25 58 3 BEGIN | ; 
: $230 $3 OwN | : 
3 25 61 roup_desc: vector (2) initial (2, group), ; 
; 25 364 Seabe? de: vector £3) initial (3, “nee er), : 
3 a38 36 tparse_block:  BBLOCK Ctpa$k_length0] : 
: 14 $e INITIAL (tpa$k_count0,tpa$m_blanks OR tpa$m_abbrev); : 
: 541 308 First = true; | 3 
3 a06 6 uic_switch = true; F 
3; 254 368 uic_group_switch = true; ‘ 
3 2546 369 uic_member switch = true; é 
3: 2545 370 While GET VALUE (*UIC', desc) do : 
3 298 71 4 BEGIN 3 
3 254 i 4 if .first then 3 
3 308 7 2 BEGIN F 
3: 254 $02 first = false: 3 
; 2550 75 2 if a. G00s dsc$w_length) eql 3) and. : 
3 33) 308 2 bof.C00d Joecsa pointer 1)<0.060 eql ‘'=""")) then : 
: 338 378 . uic_switch = false; ; 
3 2554 7 ? dest Cdsc$w_lengthi = 0; 3 
: ae? ty ? a END; : 
; 539 38 4 it sgee* Cdsc$w_length) neq 0 then ; 
; 236 384 tparse_block (tpa$l_stringcnt] = .desc Fdsc$u_ length); ; 
3 369 385 tparse_biock tpa$l_stringptr] = .desc dsc$a_pointer); | : 
: roup = 0; FE 
3 266 § ) oa = 0; é 
: 256 ; if not LibStparse (tparse_block uic_stb,uic_ktb) F 
3 2564 then signal_return (msg$_syntax, {, desc): : 
3; 2565 309 group = .converted uicc! 2 16>; 3 
3 206 91 member = .converte oY sé 2 16>; 3 
3: 256 35 i sprouP neq Uic$k_wild_group : 
3: 2568 93 6 then BEGIN 3 
3; 2569 94 6 EXTERNAL qualifiers: BITVECTOR (C); 3 


eee aaa — . ’ 
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alifiers Cyic Ree tle 
¢_group_switch ¢_sw vieens 
aad" Symbol (uIC "GROUP, Group_desc, 0); 
if gmenber neq uicSk_wild_member 


at que lifiers: ber) a Ni, C); 
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ifiers tute _membe 
uic_member_switch = j 
add. symbol~ euits _MEMBER, member desc, 0); 
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39 
38 
: 
10 ! 
12 $i 
18 
89 14 First = true; 
90 15 While GET VALUE ("USER', desc) do 
91 \ BEGIN 
4 1 if first 
9 18 then BEGIN 
94 19 user_switch = stri snegator ident) 
95 0 if desc Cdsc$w_length] n 0° 
1 then perform (add_ — ol Us R, desc, 0)); 
9 ; first = false; 
98 END 
599 4 else perform (add_symbol (USER, desc, 0)); 
600 5 END; 
601 § 
60 4 
60 428 
429 return true; 
605 430 
431 


1359 -BLKB 3 

4D 4F 54 53 55 43 08 135C P.ACF: .ASCII <8>\CUSTOMER\<0><0><0> 3 
45 4D 4F 54 53 55 3 ! 4 Bate: zea’ gre sore 3 | 
Mitte 5. 1374 eADDRESS P.ACH : 
00 00 45 $f 49 rt 1378 P.ACI: .ASCII] <4>\FILE\<0><0><0> 3 
45 4C 4 6 01 P.ACK: ASCII] \FILE\ 3 
4'e4'n 1 P.ACJ: .LONG 4 3 

9280080" 1 eADDRESS P.ACK 3 
4 45 47 41 4D 4 138C P.ACL: .ASCII 53 \ IMAGE \< a 3 
00 45 47 41 #40 49 01394 P.ACN: .ASCII \IMAGE\<0> 3 
4 00005 01 H' P.ACM: .LONG 5 3 
20080" 135A AbD ASS P.ACN : 
49 41 46 47 4F 4 13A4 P.ACO: <ASCII <7>\LOGFAIL\ 3 
4C 49 41 46 47 4F on) : af rit ay \LOGFAIL\< > : | 
$b 80090" 1388 eADDRESS P.ACQ 3 
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ADDRES 
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ONG 
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VAX-11 Bliss-32_V 
DISKSVMSMASTER: 


AEH 
J0B\<0> 
P.AEJ 
pte 


AEL 
\OUNER\<0><0><0> 


SS _P.AEN 
YPRIORITY\ 


S PROCESS\<0> 
\QUEUE\<0><0><0> 
\nEnOTE. ID\<0><0>-0> 
5 STATUS\<0><0> 


AEX 
\TERMINAL\ 


- LONG 
-ADDRESS P.AEZ 


-ASCII 
LONG 


\TYPE\ 
4 


ADDRESS P.A 


-ASCII 


Witrco> 


el 
»ADDRESS P.AFD 


-ASCII 


vv vv vv vvVT VV VV VV VV VU VV VU UUlUD 
* « *- ¢ *e se *e *e 7 @« oe 


oe a 
>> > FP FP FP FP FP FP yr rr rr OF 
mw “wy =n" Mmm MM MMH Mm Men Mm mm nm mmm 
mn oOC9o Fw <«<~ E£€x Cae OMS CUO hUCoOUWUCUSEBZETCUCUCKRO OM 
** ef 7 ef ee ef ** «8 “7 «8 ee «ff ** ef “* «8 ** «8 ** ef “ef ** ef 


\USER\ 
4 


- LONG 
-ADDRESS P.AFF 


ESC: 


-PSECT SOWNS,NOEXE ,2 


-BYTE ges 

-BYTE 
4 
20 

ADDRESS P. . P, aS... P.ACI, 
P.ACM, P.ACO, P.ACP, 
P.ACV, 5 ACK, pA ACY, 
P.ADE, P.ADG, P.ADH 
1 


el 
-ADDRESS P.ADJ, P.ADK, P.ADM, 
P.ADQ, P.ADS, P.ADT, 


0098 GROUP_DESC: 


00000000" 


0009C 


«L 
“ADDRESS GROUP 


cate. OSRCSACC. 832;1 


P.ACJ, P. sae 

c ACR, P.ACS, P.ACU, = 
P.ADA, P.ADB, P.ADD, 
P.ADN, P.ADP, = 

P.ADV, P.ADW 


Pa 82 
9 a) 
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<> 


10 
| ¥04-000 1eosse 198 Hi89:58  DISkSumGmastenccacc secsacc.32;1 


00000002 O00A0 MEMBER_DESC: 


<LONG 2 
00000" 000A4 “ADDRESS MEMBER 
00000003 sittin SOO Ag TPARSE_BLOCK: 
LONG 8 3 
00080 ‘BLKB 28 


-PSECT CODE,NOWRT,2 
OFFC 00000 PARSE_COMMAND: 
. WORD 


Save R2,R3,R4,R5,R6,R7,RB,R9,R10,R11 
58 000000006 00 9€ 90002 MOVAB LIBSCVT_HTB, R11 
5a 000000006 00 9—E 000 MOVAB LIBSCVT~DTB. R10 
39 000000006 0 3 9019 MOVAB LIBSLOOR P_KEY, R9 
37 900008006 0 9% O001¢ MOVAB STRIP NEGATOR, R7 
6 000000006 00 9€ 000 MOVAB CLISGET VALUE, R6 
55 000000006 00 9E O002A MOVAB ADD_SYMBOL, R5 
34 Og Er Se ons = pomng busesnags 
5E 08 o 00030 SUBL oe §p 
000000006 00 00 FB 00040 CALLS #0. MAP_QUALIFIERS 
52 91 D0 00047 MOVL #i, FIRST 
3 DD O004A 1S: PUSHL 3 
58 0D 0004C¢ PUSHL RB 
66 02 FB 0004E CALLS #2, CLISGET_VALUE 
2D 50 £9 00051 BLBC 0 
1D 3¢ E9 00054 BLBC FIRST, 3$ 
53 DD 00057 PUSHL R 
67 01 FB 00059 CALLS #1, STRIP_NEGATOR 
C4 AG 50 00 0005¢ MOVL RO, ACCOUNT_SWITCH 
63 8 00060 TSTW DESC 
0c 13 00062 BEQL 2 
43 D4 000464 CLRL -(SP) 
53 DD 00066 PUSHL R3 
43 D4 00068 CLRL -(SP) 
65 03 FB O006A CALLS #3, ADD_SYMBOL 
16 50 €9 0006D BLBC STATUS, ~5$ 
52 4 90079 2s: CLRL ~—s FIRST 
06 11 00072 BRB 
; D4 00074 3S: CLRL = = (SP) 
5 DD 9007 PUSHL R3 
: D4 0007 CLRL. =< SP) 
65 0 FB O007A CALLS #3, ADD_SYMBOL 
CA 50 : 007D BLBS STATUS, ~1$ 
4 00080 RET 
0000v CF 90 FB 0081 4$: CALLS #0, PARSE_DATES 
01 0 ; 06 5$: BLBS § STATUS, 68 
b 9 RET 
52 Q: DO 0008A 6$: MOVL #1, FIRST 
D 0 $: PUSHL R3 
10 AB OF F PUSHAB P.AEA 
$6 F 0 é CALLS a3, § ISGET_VALUE 
1 E9 0009 BLBC OC séR 
i) E9 00098 BLBC ~=s-s«sFIRST, 8$ 
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§.30 -1984 23:36:11 VAX-11 Bliss-32 V4.0-74 Pa 84 A 
27808-1382 $F i263U) DISKSVMSMASTER: CACC. SRCJACC.832;1 9 1a) iv 
PUSHL R3 : : 

CALLS #1, STRIP_NEGATOR : ; 

MOVL RO, ADDRESS_SWITCH ; ; 

cLRL FIRST : ; 

8$: MOVZWL p SC, RO 3; 3056 ’ 
BEQL : ; 

PUSHL  DESC+4 + 3061 ; 

E PUSHL  DESC+4 : 60 ; 
1 PUSHL R : 3059 ; 
3 CALLS #3, L 1BSCVT_DTB ; ; 
3 BLBC RO, 15$ : H 
MOVW #4. DESC + 3063. : 

C CLRL 0s = ( §P) + 3064) ; 
PUSHL R3 : ; 

PUSHL #11 ; ; 

CALLS #3, ADD_SYMBOL : ; 

BLBS STATUS, ~7$ : ; 

8 RET 3 : 
9 9$: MOVL #1, FIRST + 3074 3 
C 10$:  PUSHL R3 : 3075. 3 
E PUSHAB P.AEC : | ; 
CALLS #2, CLISGET_VALUE : : 

BLBC ~=_-RO,_- 128 ; | ; 

0007 BLBC FIRST, 11$ : 3077) : 
OODA PUSHL R 3 3 
000C CALLS #1, STRIP_NEGATOR : ; 
F MOVL RO, ENTRY SWITCH : ; 
£3 CLRL = FIRST : : 
5 11$: MOVZWL DESC, RO : 3078 ; 
® BEQL 108 : 3 
A PUSHL  DESC+4 > 3083 : 
D PUSHL  DESC+4 : 3082) 3 
0 PUSHL a ; 3081. 3 
¢ CALLS #3, b JgSCvT pre : 3 
BLBC = RO, -158 : | ; 

8 MOVW #4. DESC : 3085. 3 
B CLRL = = ( §P) : 3086 | : 
D PUSHL R : | ; 
Ff PUSHL it P ° 
1 CALLS #3, ADD_SYMBOL ; | 3 
04 BLBS STATUS, ~10$ : | 3 
128: MOVL #1, FIRST : 3096 : 

OB 138: PUSHL R3 3; 3097 : 
0D PUSHAB P.AEE : : 
19 CALLS 3, CL ISGET_VALUE : F 
1 BLBC =_«aRO,_—178 : : 
16 BLBC FIRST. 148 : 3099 : 
1 PUSHL R : 3 
1B CALLS #1, STRIP_NEGATOR : : 
3 MOVL RO, IDENT SWITCH ; ; 
CLRL = FIRST ; | 3 

4 14%: MOV2WL DESC. RO ; 3100 : 
7 BEQLsdt ; 3 
9 PUSHL  DESC+4 > 3105. : 
C PUSHL DESC +4 > 3104 F 
F PUSHL R > 3103 : 


D4 


d8 


oo 
ou 


F 10 
15-Sep-1984 36:11 
12-8 08- 1382 $Fieil} 
: FB 00131 CALLS 4 . IBSCVT_HTB 
5 134 15$:  BLBS 
035A 137 BRw t $ 
04 80 A 168: mov it DESC 
5 DD 0013F PUSHL 
0D 144 PUSHL 
: Fe 14 CALLS ADS -$YB0L 
. 146 BLBS Barts 
4 0014 RET 
Q1 DO 0014A 17$:  MOVL , FIRST 
D 0014D 18$:  PUSHL 
40 AB OF OO14F PUSHAB PsA 
FB 01 : CALLS . “Ch scer. VALUE 
£9 001 BLBS 
BH BR fet 
or F $1 D CALLS #1, STRIP_NEGATOR 
9 DO 00160 VL RO, IMAGE~SWITCH 
‘ 83 00164 TSTW DESC 
9¢ 1 0166 BEQL -198 
: d4 001 CLRL = = (SP) 
53 DD O016A PUSHL R3 
08 DD 0016C PUSHL Hy 
2 43 3195 CALLS # ADD_SYMBOL 
0 €9 00171 BLBC sTA ATuS,~27$ 
3 D4 00174 19$:  CLRL ast 
p 11 00176 BRB 
é D4 00178 208 CLRL = = (SP) 
53 DD OO17A PUSHL R3 
08 DD 0017C¢ PUSHL Ay 
: Fe 00175 CALLS ADD_SYMBOL 
0 E 0181 BLBS STATUS, ~18$ 
4 00184 RET 
or DO 00185 318: VL #1,:~FIRST 
3 DD 00188 22$: PUSHL RS 
4C AB OF OO18A PUSHAB 
FB 01 CALLS a5. “ChISGET. VALUE 
E9 001 BLBC 
 O0I9 PUSHL rast, ™ 
gi F $019 CALLS #1, STRIP NEGATOR 
9 DO 00198 MOVL RO, J TCH 
8 O19 TSTW bg Sc 
C 1A1 BEQL 3 
5 D4 OO1A CLRL = = (SP) 
53 DD OO1A PUSHL R3 
9 DD OO1A PUSHL a 
3 Fe 109 CALLS ADD D SYMBOL 
E 1AC BLBC sthry 
b4 1AF 238:  CLRL 
p 1 00181 BRB 
D4 00183 2468: CLRL (SP) 
DD 0018 PUSHL R 
DD 0018 PUSHL ' 
Fe O19 CALLS ADD_SYMBOL 
e 1BC BLBS STATUS. 2$ 
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Page 86 
RT tA hess eee (14) 
“Sep-1984 23:36:11 VAX ASTER: CACC. SRCIACC.B32; 
18-50-1984 FFi59:58 DT Scoumee ae 
ace ; 
vo 1) re a}. FIRST ; 5156 
52 $3 po Ooicy Ses: Push RS" 
58 AB OOF OOIC Chics #2, CL ISGET VALUE ~~ 
ze £5 01¢8 Bec FAST, 298 ; $60 
E9 SHL R : 
1 ee & 
67 1 fF D6 MOVL +f ~ : 
dC AG $B DA ft ; 3162 
bp 13 do10¢ Cir =(SP) : 
5 bb ep pie Sie : 
i DD OO1E CALLS #36_ ADD. YmeoL bce 
65 o§ EB QOIE? 278: BLAS” STATUSS"3B args 
01 64 OOTEA CCRL FIRST : 3138, 
4 EB 28$: CLRL $ 3; 316 
bgt OoteD BAB 268, 
re D4 OO1EF 208: CURL 
an FS CMC's a3 ADD. SYMBOL 
65 03 F 3 BLES STATUS "208 S si75| 
cs 64 00188 MOVE #1. FIRST : 3176 
Q O01FC 308: Mov. at, 
52 53 bb OOIFF Sis; PUSHL P- AEN : | 
3F 00201 PUSHAB ISGET_VALUE : | 
eo 8 } 04 CALLS #2, GL {SGET ; 3178 
6 $6 £8 00207 BLBC FIRST. 328 : 
i 5 5D 00200 PUSHL RS IP_NEGATOR 3 
53 DD ALLS #1, STRIP_ : | 
67 1 4 of hove 4 eee calnee : 3179 
co he 0 4 1 CLRL- FJ t. RO ; 
H 18 32$: MOVZWL oes . > 3184) 
50 6 i$ 18 BEQL 3 SC +4 : 3183 
’ 1D PUSH DESC +4 : 3182 | 
eB rt Ae ta 
4 : 
° 39 dD 3 CALLS #3, ,igscvT wie ; 186 
30 £9 00998 Tn) STE : 31 
i Oe 4 8 CURL (SP : 
6 D4 SHL RB ; 
58 +4 PUSHE a; ADD SYMBOL 3 
r Bes” STATUS. “Sts 
65 Fe 805%? BLBS «STATUS, E3196 
C5 64 0093A 33: ROVE 1. FIRST : 3197 
; aD : 
78 AS OF “9 CALLS a, Gi 1SGET VAL : 3199 
$f EQ O0gKs Bec Fast. 358 
08 SF Roser PUSHL = R 


; 

4 
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0088 $3 
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en=r 


38$: 
5 
04 39$: 
11 
i) 40$: 
fF 
+4 
s 418: 
D4 42$: 
0D 
ba 
b0 43%: 
p 6 44%: 
FB 


10 
-Sep-19 
-Sep-19 


Ww 
uw 
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393: 


4 23:36:11 VAX-11 Bliss-32 V4.0-74 
Hr $Fi83idh DLEKSVMGHASTER LACE SRCTACC.B32:1 
CALLS #1, STRIP_NEGATOR 

MOVL RO, PRIORITY SWITCH 

CLR FIAST 

BeoL Sea’ 

PUSHL  DESC+4 

PUSHL p SC +4 

gis fp. gigsevr_or 

MOVW #4. DESC 

CLAL = (SP) 

PUSHL R 

PUSHL #15 


CALLS #3, ADD SYMBOL 
BLBS STATUS, “348 


MOVL #1, FIRST 
R3 


P.AEQ 
CALLS #2, CL ISGET_VALUE 
B RO. 43$ 

BLBC FIRST, 40$ 

CALLS #1, STRIP_NEGATOR 


MOVL RO, PROCESS_SWITCH 
TSTW DESC 

BEQL $ 

PUSHL SP 

PUSHAB PROCESS_KEYWORD 
PUSHL R 


CALLS #3, LIBSLOOKUP_KEY 
ant df 41$ 


CLRL = 
PUSHL  PROCESS_VALUE 
PUSHL #1 
CALLS #3, ADD_SYMBOL 
BLES STATUS, ~39$ 
49$ 
FIRST 
BRB 378 
PUSHAB PROCESS_KEYWORD 
PUSHL 


SH 
CALLS #3, LIBSLOOKUP_KEY 
BLBS STATUS. 42$ 

BRW 2$ 

CLRL = = (SP) 

PUSHL PROCESS_VALUE 
PUSHL 


a3 ADD_$YMBOL 
BLBS STATUS, ~37$ 
MOVL #1, FIRST 

R3 


PL AES 
CALLS #2, CLISGET_VALUE 
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47%: 
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1986 47:39:58 


VAX-11 Bliss-32 v4.0- 
SEKSUMEAASTER LACE SRCTACC.032:1 
47$ 
ist 46$ 

STRIP_NEGATOR 
RO, QUEUE~SWITCH 
D sc 
4 
= (SP) 
AY ADD_ SYMBOL 
stars tt 
4g 
RS 
33 ADD_SYMBOL 
£3: apo “448 
#1, FIRST 


$GET_VALUE 
F i: fuser 


aie STRIP_NEGATOR 
REMOTE _ID_SWITCH 


it - os + ae 


-(SP) 

RS 

a” ADD_ SYMBOL 
STATUS, “48S 


grit pense uevs 


$ 
+ Ti 


$GET_VALUE 
i hae 


TRIP_NEGATOR 
TATUS_SWITCH 


._ “mum Sant 


3295 


<P 
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A 15-Sep-19 236: VAX-11 Bliss-32 V4.0-74 
-000 127808-1382 $Fi89ih) DISKSVMSMASTER<LACC. SRC ACC.832;1 
E a  54$ 
04 A SHL DESC #4 
A PUSHL DESC +4 
CLS 5 $CVT_HTB 
K Same 3 Sl 
6 MOVW #4. DESC 
5 CLRL «= SP) 
; PUSHL R 
65 ; CALLS 4 . ADD_SYMBOL 
C4 g BL BS STATUS. STATUS. 548 
52 Q 568 MOVL #1, FIRST 
4 PUSHL R3 
oocc PUSHAB P.AEY 
CALLS #2, ¢ $GET_VALUE 
D BLBC 
D BLBC =~ FIRST, 60$ 
D PUSHL R 
67 gi CALLS #1, STRIP_NEGATOR 
FBG 9 D MOVL RO, TERMIRAL_SWITCH 
7 TST $c 
C BEQL $ 
CLRL 40s = (SP) 
5 PUSHL R 
1 PUSHL 5 
65 3 BD CALLS #3, ADD_SYMBOL 
48 g 588: BLBC STATUS, ~64$ 
9$:  CLRL FIRST 
ps BRB 57$ 
5 60$:  CLRL =-(SP) 
5 PUSHL R 
19 PUSHL #25 
65 93 CALLS & ADD_SYMBOL 
C8 0 Eg BL BS STATUS, 578 
52 91 61$: MOVL #1, FIRST 
3 62$:  PUSHL 
0008 PUSHAB P.AFA 
ry CALLS 2, CLISGET_VALUE 
4C BLBC =s-_—«RO,. 6 BS 
20 BLBC ~=—Es-s«sFIRST, 66S 
PUSHL R 
67 1 CALLS #1, STRIP_NEGATOR 
FC AG 9 MOVL RO, TYPE_SWITCH 
i peat ES 
04 A PUSHAB TYPE_VALUE 
8 A PUSHAB TYPE~KEYWORD 
69 CALS #3, LIBSLOOKUP_KEY 
1D 63$: BLBC STATUS, bgt * 
: CLRL = = (SP) 
08 AE PUSHL  TYPE_VALUE 
if PUSHL 
65 0 CALLS #3, ADD_SYMBOL 


Met 00 15-Sep-1986 25:56:11 VAN]! Blise=82 v4O-743 
01 648: S STATUS, 65$ 


3 
=2 


wn 
oO 


52 fF 65%: CLAL r ast : $38 
04 A 13 66$: | PUSHAB TYPE_VALUE : 
8 A 1 PUSHAB TYPE-KEYWORD : | 
8 CAs #3, LIBS UP_KEY : | 
$8 1E 67$ BLBC Starus ast oR : | 
E CLAL + 3350. 
08 AE PUSHL TYPE ” VALUE : | 
1 } PUSH a" 3 
65 g CALLS #3, ADD_SYMBOL : | 
a9 8 LBS STATUS, ~62$ : | 
52 1 F 68% MOVL #1, FIRST ; 366 | 
64 1 : MOVL #1, UIC_SWITCH : 3367, 
04 AG 1 MOVL #1, UIC"GROUP SWITCH : 3368 
8 Ab 9 MOVL #1, UICZMEMBER_SWITCH : 369 
698:  PUSHL ns : 3370| 
00E4 F PUSHAB : | 
66 10443 CALLS a5. EL 1SGET _VALUE ; | 
0 46 BLBS)SsaR $ : | 
17 D044C 708 BLBC =~ FIRST, 71$ : 3372 
4 CLRL ~— FAST > 3374) 
03 & 00451 CMPW DESC. #3 : 3375) 
10 54 BNEQ § : 
00222D22_—s BF 06 83 18 00 00456 CMP ZV #0, #24, @DESC+4, #2239778 : 3376) 
64 4 CLRL UIC_SWITCH : 3378 
6 CLRW : 79 
50 6 71$: MOVZWL DESC. RO : 
3 6 BEQL +} 3 
AO C3 8 MOVL RO, TPARSE_BLOCK+8 3 386 
“* oe 06 =A MOVL  DESC+4, TPARSE_BLOCK+12 ; 3385 
FESS 4 76 CLRQ GROUP : 3386. 
90000 006 7A S UIC_KTB ; 3388 | 
000 9006 PUSHAB ; 
009 TPARSE BLOCK 3 
000000006 09 CALLS 43,  LIGSTPARSE : 
1 1 BLBS : | 
94 72%:  PUSHL : 3389 
1 PUSHL 3 
coooooons gg OOTP HE PR RR aE so : 
OO9FI0FC BF iS ROVL per ; | 
FEGB C4 FES2 C4 AD 73$: MOVZWL CONVERTED_UIC+2, GROUP > 3390 | 
FEGC CG FESO 04 B4 MOVZ2WL CON VERTED bruit. MBER : 3391, 
QOOO3FFF © &F FEG £4 BB CPL R #16 : 3392 | 
000000006 90 1 C6 B1SB2 QUAL IFIERS+4 > 3395 | 
A 4 CD MOVL ue pswitcH. UIC_GROUP_SWITCH ; 96 
0088 ; 5 PUSHAB G DESC or 
5 b? PUSH cngur 


10 
Sep-1986 11:51:58 DISKSVMGMASTER: CACC. SRCSACC.832;1 


our 
$e 


7 ae 


5 03 FB OC CALLS #3, ADD_SY 
oooorrre BF Fes cs D0 748: CHL Weer. “#05355 
000000096 00 ; et S62 #2, QUALIFIERS+4 

AS D0 OC MOVL UIC SWITCH, UIC_MEMBER_SWITCH 

DO4F LAL =(SP) 
0090 F O04F § MBER_DESC 
DD 004F8 PUSHL  # 
65 B Q04FA CALLS #3, ADD_SYMBOL 
FF DO4FD 75$: BRW 
52 BO 00500 768: MOVL, «#1. FIRST 
D 00503 778:  PUSHL R 
00FO F 00 PUSHAB P.AFE 
FB 005 ALLS "2, CL ISGET_VALUE 
D 9 005 BLBC = FIRST, 798 
67 Q) FB 0051 CALLS #1, STRIP_NEGATOR 
OC AG ? Dd peat? MOVL RO, USER_SWITCH 
8 00518 TSTW Desc 
¢ 13 0051D BEQL $ 
§ D4 00515 CLRL = (SP) 
53 DD 00521 PUSHL RS 
DD 00525 PUSHL 
65 3 FB 005 CALLS #3, ADD_SYMBOL 
14 9 £9 00598 BLBC = STATUS, “818 
52 04 00508 788:  CLRL ‘FIRST 
D4 11 00590 BRB 77$ 
& D4 O05¢F 798: CLAL = (SPD 
53 0D 00531 PUSHL = R3 
4 DD 00535 PUSHL #4 
65 3 FB 005 CALLS #3, ADD_SYMBOL 
c8 EB 005 BLBS STATUS, ~77$ 
4 005 RET 
50 01 pO 0055¢ gos: MOVL #1, RO 
53F 818: RET 


3; Routine Size: 1344 bytes, Routine Base: CODE + 15D4 


De Se Se Ge Se Se Se Ge Se Se Ge Se Se Se Se Se Se Fe Fe Se Fe Fe Se Se Ge Fe Ge Be Se Ge Be Se Se Be Se Se 


Be Se Be Se Se Ge Se Ge Ss Ge Ge Se Be Se Se Se Ge Se Se Ge Be Fe Se Se Ge Se Se Ge Se Se Ge Se Ge Se Se Se Se Se Ge Se Se Ge Se Se Ge Se Ge Ge Se Ge Ge Se Se Se Se Ge as 


Pas as Sanaa sss sass a8e 


FAAPAAAAOAO 
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~ oa Cao ee Re OS and tdie 


ROUTINE PARSE_DATES = 


leeoce 
Functional description 


This routine is called to parse the /DATE, /BEFORE and /SINCE 
command switches. 


Input parameters 
None 
Output parameters 


Store dates for future process tng. 

Set up an offset to the date in the record to be 
used for displays and selection criteria. 

Any errors encountered are RETURNed immediately. 


desc: namic work descriptor 


bblock Edsc$k_d bln !D 
= dsc$k_class_d), 


preset (Cdsc$b_class 


* 
!DEFINE KEYWORD TABLES -- 


: Define a keyword table for LIBSLOOKUP_KEY. Associate a byte 


i offset with each of the date keywords. This offset defines 

the location within an accounting file of that date. 

time pevvers: $Slib_key table ( : Rexyere table -- time type 
(FINISHED,  finiSh_time_desc (1]), ! -Time job terminated 
(LOGOUT finish_time_desc (1)), ! Ditto 
(STOPPED, § finish=time-desc [1}). i Ditto 
(STARTED, start_time_desc fii}. ! Time job logged in 
(LOGIN, start_time_desc (1]), ! Ditto 
(QUEUED queue_time_desc fi}. ! Time job was queued 
(SUBMITTED, queue t ime_des¢ 1}) i Ditto 


A 

iPARSE /DATE VALUE ~- 

i 

i1f GET_VALUE ("DATE', desc) then ' /DATE type 
! LOORUP (desc, time_keyword, date_desc_addr); 


10 
1E-Seo-19R6 8:36:]) vat otiee=82 4 


0-74 
2 See Sacc.832:1 


Page 435 


vi 


10 | 
WEHoectste GEREN] WURCRIWBALRNGRE AER PBaccaasess | aS 


vos 


-000 
+ 2665 9 2 date_desc_addr = finish time desc [1]; 
: 068 date_headér = addrdesc U'finTshed'); ! Set default date header 
; 49 ‘If .date_desc_addr eql queve_time_desc [1] ! If /DATE=QUEUED 
: es) a38 ; then date_Reader : addrdesc tT geescat) ! Fix date header 
3 ert 495 If .date_desc_ addr eql start_time_desc (1) ! If /DATE=STARTED 
; or¢ 36 ! then Gate_Reader = addrdesc (‘Started’); ! Fix date header 
; 267 49 
3: 2676 38 ! 
; of? 5 : PARSE /BEFORE AND /SINCE DATE VALUES -- 
3 267 0} | 
3 4h | 5 ; If GETVALUE ("BEFORE', desc) then ! /BEFORE value | 
3 26 a perform (LibScvt_time (desc, before_date)); 
: eB 505 If GET_VALUE ("SINCE', desc) then ! /SINCE value | 
3 re 208 perform (LibScvt_time (desc, since_date)); 
3 eturn true; 
684 508 2 Ret 
; 2685 509 END; | 
00 00 00 44 45 48 53 49 45 49 46 08 01814 P.AFG: .ASCII <8>\F INISHED\<0><0><0> é | 
00 54 55 GF 47 GF SC 06 01820 B-AFH: ASCII <6>\LOGOUT\<O> 3 | 
44 45 50 50 4F 54 5 1828 P.AFI: .ASCII <?>\STOPPED\ 3 
44 45 54 52 41 54 5 7 Q1830 P.AFJ: .ASCII <7>\STARTED\ 3 
00 00 f 49 47 4F 4C OS 01838 P.AFK: .ASCII <5>\LOGIN\<0><0> 3 
0 44 45 95 43 95 31 06 O1B40 B-AFL: -ASCIL <G>\QUEUED\<O> ; | 
00 00 44 45 54 54 49 38 $6 55 53 09 01848 P.AFM: .ASCII <9>\SUBMITTED\<0><0> : 
64 65 68 73 69 6E 69 66 01854 P.AFO: .ASCII \finished\ 3 
90000008, O1B5C P.AFN: -LONG : | 
0090000" 0186 -ADDRESS P.AFO 3 | 
00 00 45 52 4F 46 45 4 1B64 P.AFQ: .ASCII \BEFORE\<0><0> 3 | 
44948 1B6C P.AFP: .LONG : 
0990098" 1870 -ADDRESS P.AFQ : 
00 00 00 45 43 4E 49 1874 P.AFS: .ASCII \SINCE\<0><0><0> : 
00000005 0O1B7C P.AFR: .LONG F 
00000000' 01880 -ADDRESS P.AFS i | 
-PSECT SOWNS,NOEXE,2 | 
| 
gga poet DESC BYTE (3) 3 
OOCF -BYTE 3 
0000 -BLKB 
Q000000E 00004 TIRE KEYWORD: as | 
00000000' 00° 00000000° 00000000' 0000 . 00000° 00008 ADDRESS P.AFG, FINISH_TIME_DESC+4, P.AFH, - 3 
00000000° §0090000" 00000000* 00000000' 09900009" 0900000 > 0090 FINISH_TIME_DESC+4, P.AFI, = 3 
0000000* 00000000' 00108 FINISH TIME-DESC+4, P.AFJ, - ; | 
START_TIME_BESC+4, P.AFK, - ; 
QUEUE“TIME"DESC+4. P.AFM. - : 
QUEUE “TIME “DESC +4 ; 


; Routine Size: 


89 bytes, 


" 
if Boeri 88s Fishisa || Nae ckdnGAAS eR chce saeSacc.032;1 


«PSECT CODE,NOWRT,2 
003C 00000 PARSE _DATES: 
WORD 


WO Save Re AS R43 
5 000000006 00 9E 9002 MOVAB LIBSCVT_TIME, RS 
4 000000006 00 3E 900 MOVAB CLISGET-VALUE, R4 
000' CF 9€ 9010 MOVAB DESC, R3 
00000000' EF 9E 0001 MOVAB FINISH_TIME_DESC+4 
0398 C 62 9E 0001C MOVAB FINISHCTIME DESC +4. DATE _DESC_ADDR 
0168 ¢ B4 AF «(9E 00021 VAB_ PP. AFN, “DATE HEAD 
53 po 90 7 PUSHL R3 
BC AF 9F 00029 PUSHAB P.AFP 
64 02 FB 002C CALLS #2, CLISGET_VALUE 
0c . O02F BLBC Osi 
039¢ ce F 00032 PUSHAB BEFORE _DATE 
DD 0036 PUSHL 
65 9 FB 00 CALLS #2, LIBSCVT_TIME 
1A E9 00038 BLBC STATUS, 3$ 
53 DD OO03E 1$ PUSHL R3 
BS AF OF 00040 PUSHAB P.AFR 
64 02 FB 0004 CALLS #2, CLISGET_VALUE 
0c E9 00046 BLBC ~—=s_«RO. 
O3A4 ce 9F 00049 PUSHAB —SINCE_DATE 
53 DD 0004D PUSHL R 
65 26 44 0004F CALLS #2, yap * (gala 
03 E 00052 BLBC STATUS, 3$ 
50 01 DO 0005 28: MOVL #1, RO 
04 00058 3$: RET 


Routine Base: CODE + 1884 


Page 


Pe Se Se Be Be Be Be Be Be Be Fe Be Ge Ge Se Se Fe Se Se Ge Ge Fe Se Be Be 


94 
(15) 


3432 


| 166-600 
: eRe , i 
3; 2689 \§ 1 
; 2690 1 1 
: 2691 314 1 
3; 269 16 1 
> 269 218 1 
> 269% 7 1 
> 2695 218 1 
: $638 358 
> 269 ; 11 
i $639 se 
; 2701 826 1 
i $70 333 | 
> 2704 5 5 
we gS 
: 2707 530 
: site 33) 
: 2710 5 § 
: a $ 
; ng 236 
3 2716 5 
3: 2715 538 
: $hi$ 228 
i orig ae 
: $730 308 
; 3721 544 
; ¢ 545 
3; e7 ae8 
3 2726 54 
3: 2725 548 
3; 2726 549 
3: 2727 550 
3; 2728 551 
+ 2729 358 
3; 27 55 
73 338 
we BS 
3: 2735 558 
 $i36 325 
. 
+ 2740 208 
: 2741 564 
3 ee 565 
3 276 566 


———EE——— EE 
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12280-1380 $7230: DISKSVMSMASTER:[ 
ROUTINE PARSE_KEYS = 
! a 
i 
} Functional description 
i This routine is called from the main parser to handle those 
: qualifiers that causes dynamic strings to be built. That is, 
sort keys, report items, and summarization keys. 
! Output parameters 
i Any errors encountered are RETURNed immediately. 
TRUE is returned on a normal exit. 
i oeee 
BEGIN 
LOCA 
result: ref vector (2); ! Holds pointer returned by lookup 
; i 
Each of the three element entries below consists of the following: 
i 1) Key type (l=char, 2=binary) 
; 3) Address of record item descriptor ; 
4) Maximum size in bytes of the target field 
GLOBAL 


~~ 


key_table: blockvector (32, 3] initial 


Account name 


account_desc, 8, 
Entry (job id) 
n 


entry_desc, 


finish_time_desc, 8, Termination time 
ident_desc, 4, Process ID 
image_desc, 9, Image name 
job_desc, $9, Job name 


Remote node name 


node_desc, 6 
i, Owner process ID 


owner _desc, 


process_desc, 11, Process type 
Queve_desc, $1, Queue name 
queue_time_desc, g. Queue time 
start_time_desc, 8, Start time 


Final status 
Terminal name 
Record type 

User name 

Remote node address 


status_desc, 4, 
terminal_desc, 8, 
type_desc, 8 
user_desc, a 
address_desc, 4, 


buffered_io_desc, 4, Buffered 10 count 
direct_i0_desc, i, Direct 10 count 
cpu_time desc, 4, Cpu time 
page_faults_desc, 4, Page faults 
page_reads desc, 4, 10 


age 
Page file peak 


page_file_ desc, 4, ; 
Working set peak 


working _sét_desc, 4, 


: 
| 
| 


ee epeeeeeseeeseeeeeeeeetst es & & & & & 
Ee EE EEE TS me 


oF arts 
ACC.SRCJACC.B832;1 


Pa 95 
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) ACC 18-56 -1984 23:36: VAX-11 Bliss-32 V4.0-74 Pa 96 
-000 122805-198e #7 :89:3 DLAKSVMSHASTER LACE SRCSACC.B32;1 9° 16) 
744 67 + execution_desc, 4, : freee euoqut ten count 
745 eB - elapsed_desc, & ; Lapsed time 
74 $ + priority_desc, & ! Priority 
74 0 » volumes_desc, 4 ' Volumes mounted 
74 71 ; sym_page_desc, 4, i Pages printed 
74 ie » sym_get_desc, 4, ! Symbiont gets 
750 7 . sym_qio_desc. 4, ; aaa Qios 
751 74 - uic binary desc, 4 ! vic 
7 ; 75 ); 
18a 7 
a a desc:  bblock pascsk.d bln ! Dynamic work descriptor 
7 § 7 preset((dsc$b_class] = dsc$k_class_d), 
133 a) 5 
759 Hf ! Now build a table that associates each sort keyword 
7 8 ! with one of the sort key descriptor elements 
62 a3 5 


ab Ab Ab Ab Ab AD AD AD AD AD Ab hb Ab db hb bh hb ib ib hh hh hbk hh hh hh hh hb hh hh hh el 


; A . a8 sort_keyword: $lib_key_table ( ' Keywords for /SORT qualifier 
3; 2765 P 3588 (ACCOUNT, 00), ! User's account name 

: 2766 P 3589 (ENTRY, 01), ! Number of batch or print job 
3: 2767 P 3590 (FINISHED, 0g} ! Termination time 

; 2768 P 3591 (IDENT, 03), ! Process identification 

3; 2769 P 35 (IMAGE, 04), ! Image name 

3; 2770 P 359 (JOB 05), ' Name of batch or print job 
: 2771 P 3594 (NODE 06), !' Node name 

3: 277 P 3595 (OWNER 07), ' Owner process identification 
3; 277 ia 38 (PROCESS, 08), ! Process type 

3; 2776 P 359 (QUEUE, 09), ' Name of queue 

3 2775 P 3598 (QUEUED 10), ' Time job was queued 

> 2776 P 3599 (STARTED, 11); i Start time 

3: 2777 P 3600 (STATUS, 19). ' Final exit status 

: 2778 P 3601 (TERMINAL, 13), ' Terminal name 

3; 2779 P 360 (TYPE, 14), ' Record type 

3: 2780 P 360 (USER 15), ' User's name 

> 2781 P 3604 (ADDRESS, 16). i Remote node address 

3; 27 ‘ P 3605 (BUFFERED_10, 17), ' Buffered 10 count 

3: 278 P one (DIRECT_10, 18), ' Direct 10 count 

: 27 P 360 (PROCESSOR, 19), ' CPU time 

3; 2785 P 3608 (FAULTS 0), ! Page faults 

> 2786 P 3609 (PAGE_READS, 1); i Page 

: 44 P 3610 (PAGE FILE $} ' Page file peak 

: 27 P 3611 (WORKING SET, i Working set peak 

3 2789 Pp \¢ (EXECUTION, 4), ' Image execution count 

3; 2790 P 361 (ELAPSED, 5). ' Elapsed time 

3: 2791 P 3614 (PRIORITY, 6), ! Priority 

: 279 P 3615 (VOLUMES, 7), ' Volumes mounted 

: 279 P 16 (PAGES, 8), ! Pages printed 

3 2794 P 361 (GETS, 9), ! Symbiont gets 

3 2795 o 8 (Q10S, 0), : Erqntens Qios 

: as P 361 (uIC, 1) ' ulc 

: 279 0 Be 

3; 2798 1 

3; 2799 6 § 

3; 2800 6 ‘ 


ea ood 


<> 


oo°o°o°o 


oooo 


a 
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Build a lookup table that associates each summary option keyword with 
a three longword structure. The first longword contains the address 
of a descriptor of the data field in the record. The second senquere 
ontains the address of a descriptor of a FAO control gtring tha 
s used to concatenate keys. The third longword contains the address 
of a descriptor of a string suitable for use in the header FAO. 


32 V4.0-74 Pa 97 
RSEACE SRCIACC.B32; 1 9°16) 


summary_keyword: Slib_key_table ( ' Keywords for /SUMMARY qualifier 


(ACCOUNT, id (account_desc,  ad('!9A 
(DATE, UPLIT (s_date_desc, ad(*!11 
(DAY UPLIT (day_desc, ad('!3a 

UPLIT (hour_desc, ad("!3A 
(IMAGE, UPLIT (image_desc, ad(*ii4 


: ad("Account ‘))), ! Account 
$ 
; 
(J0B8 UPLIT (job_desc, ad('! He 
A 
A 
A 
S 
S$ 


, adt’YYYY MM DD 'S)),! Date 
ad('DD *))), ! Day of month 
ad("HH °))), ' Hour of day 
- ad('Image name '))),! Image name 
~ ad("Job name *))),! Batch/print | 
ad('MM '))), ! Month of year 
» @ad('Node name *))),! Node name 
. ad('Process type Sj)! Process 
‘ (*Job/print 


(MONTH, UPLIT (month desc, ad(* ia 
(NODE, UPLIT (node_desc, ad(‘! 
(PROCESS,UPLIT (process_desc, ad('!1 
(QUEUE, UPLIT (queve_desc ' 
(TERMINAL, UPLIT (terminal_desc,ad(' 9A 

UPLIT (type_desc, ad('iBA 
(VIC UPLIT (uic_desc, ad('!67A 
(USER, UPLIT (user_desc. ad(* 13a 
(WEEKDAY,UPLIT (weekday_desc, ad('!3AS 
(YEAR, “UPLIT (year_desc, ad("!5aS° 


queue *))),! Queue 
"Terminal '))), ! Terminal name 
d Tyre, er ! Record type 


d 
d( 
( 
d( 
d( 
d¢ 
d( 


RUVVNoe eee Oe 
FUN “OC OOtNOoufwn—o 


"Username "))),! User 
‘DD '))) ! Day of week 
"Year ')5), i Year 


VVUVVVVVVVVVVVVUUUU 


Build a table that associates each report option keyword with 
a structure of longwords that contains: 


1) Summation type (additive, peak, elapsed time, etc) 
¢} Summation value (address of value, constant, etc) 

) Number of longwords needed in accumulator 
3) Descriptor of FAO control string for eventual output 
6) 


G9 0d 09 69 Cd 09 09 00 OD OD 00 CD OD CD OD CD C9 CD CD CD CD CD C9. CD CD CD CD 
io 


w 


Descriptor of FAO control string for title Line 1 
Descriptor of FAO control string for title Line 2 


MEN OS ODNAUNE UN $9 ODNOAUE WN $ O ODN NEW " OOONOUNE 


SESSSSESSSSSOSSSE SESE SES 


co 0000 
Se 
WANA 


report_keyword: $lib_key_table ( ! Keywords for /REPORT qualifier 


$e? (BUFFERED_I0, UPLIT we type_add, hold_biocnt, 1 
ad (* 'BUL"), ad (' Buffered’), ad (' 1/0 *))), 


9 
670 (DIRECT_IO, UPLI7 (sum_type_add, hold_diocnt, 1, 
ad (* '8uUL"), ad (* Direct’), ad (' 1/0 *))), 


NOUS WN—O”O 


RRELLELESE 


NO UE WN OO 


(ELAPSED, UPLIT ¢ 
ad : 


q° 


sum_ type addx, hold_elapsed, 4, 
'4UL!2T'T, ad (' Elapsed >, 
ad (' Time "30. 


$8 
674 
? 5 
6 $ (EXECUTION, UPLIT (sum_type_add, hold_execution, 1, 
g ad (* 'BUL"), ad (" Image '), ad (* © Count "))), 
rt 


(FAULTS, UPLIT (sum_type_add, hold_pageflts, 1, 


PROPIPIPINININIPUPINIPUNINYPNPPPNONINP PNY 
VVVVVVVVVVVVUVUUUD 


02.09 00 09 00 G9 0D CD 
PAA 


at CE Se eS 
ACC 
v04-000 
8 P 3681 
tie 
0 P 36 (GETS, 
Bel P 3684 
¢ P 3685 
R6 B 3686 ¢ (PAGES, 
864 P 36 
865 P 3688 
866 P 3689 2 (PAGE_FILE, 
86 P 3690 
868 P 3691 
869 P 369 (PAGE_READS, 
870 P 369 
871 P 3694 
b7¢ P 3695 2 (PROCESSOR, 
87 P 36 
874 P 369 
875 P 3698 
876 P 3699 2 (Ql0S, 
877 Pp 37 
878 P 
879 P 
880 P 
881 P 
P 
88 P 
884 P 
P 
P 
P 


td td ot ot I IO 


MEW 0 OBNOAUEWN OOO NOUEWN —O0@ 


Ince i 
BEGIN 


Key_order 
If 


00 

701 

70 (RECORDS, 

70 

704 

705 2 (VOLUMES, 

706 

707 

70 (WORKING_SET, 
| 


a te” an fee fe fem hee De etn, Bite tm Si tn Se te em i > > > i ie 1 


etch 
LIBSLOOKUP_KEY to parse them. 
a sort key descriptor table is returned. 
copied (in the user specified order) to the SORT_TAB 


Note that the first entry in SORT_TABLE is NOT used to store 
the number and type of entries as is done with the other tables. 
The sort keys must be preceeded by a single word (SORT_KEY_COUNT) 


that gives 


UPLIT 
ad 


sort_key count = 0; 
r 


= 0; 
Not strip_negator (desc) then 
key_order = 1; 


* '46uL ! 


(* '8uL*), ad (' 


the 


om 0 to max_sort do 


1h-Sep-19 4 $3:36:]1 VAX=11 Blissese v4. 


14-Sep-1984 
'BUL"), ad (' Page '), ad (' 


(sum _type_add, hold getcnt, 1 
'BUL") ad iu syabieat hy. ad (' 


(sum _type_add, hold_pagcnt, 1 
‘BULT)» ad Pages"). ad (° 


(sum _type_peak, hold_pgflpeak, 
'BUL"). ad (* Peakpage’), ad (° 


(sum_type_add, hold_pagereads, 
BUL")» ad iu Page 15 F ad (' 


(sum_typeaddx, hold_cputim, 4, 
as ey iar ee 
Time 


v Processor 


um_type_add, hold_qiocnt, 1, 


* '8UL"), ad (" Symbiont’), ad (' 


0, 1, 
(* '8UL"), ad ¢° fotal'), ad (' 


(s 

18 

ty type_incr, 

(sum_type_add, hold_volumes, 1 
'BUL"), ad (* Volumes’), ad (° 


(sum_type_peak, hold_wspeak, 1 
yPad (* Peakwork'), ad (! 


); 


' 

'PARSE /SORT VALUE LIST -- ; 
Ff the value(s) associated with the /SORT qualifier. Use 

If successful, an index into 

The sever ipsers are 


number of keys. 


0-74 Pa 98 
DISKSVMSMASTE arkce sec SAcc.B32:1 9° 16) 
Faults’))), 
Gets ‘))), 
Printed'))), 
1 
File use'))), 
1 
Reads '))), 


*), 


Q10''s "))), 
Records'))), 
Mounted'))), 


Set page’))) 


! Initialize sort key count 
! /SORT value List 


Local key_order, index; 


If not (GET_VALUE ("SORT', desc)) 
then exitloop; 


' No, 


! Assume ascending 


set descending 


</> a 


Fe eae ne bal oleate Ca Mg eo oe yn See Be 
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ACC 18-56 1984 23:36:11 VAX-11 Bliss-32 V4.0=-74 Pa 99 
vOs=000 1805-1986 #7:39:3 DISKSVMSMASTER:CACC.SRCJACC.832;1 9°16) 


<=> | 


: 2915 a8 

5 S$ 44 LOOKUP (desc, sort_keyword, index); 

3 Hs 741 

By OHNE, 

3: 2921 744 ' MOVE KEY DESCRIPTORS 

3 § 745 : Move the key descriptors. Note that more than one descriptor 

3; 29 74 : may be needed to describe a key. The number of descriptors 

; 4 74 : is stored in the order field (ascend/descend) of the first 

3 é ve } descriptor since this field is dynamically set based on the negator. 

; 750 

3 8 Fat Sort_table (.sort_key_count,key_w_type] = .key_table C.index, sort_typel; 

3 3 23g Sort_table S0PT PO RON 0007 LOT ONY 2 = .key_order; 

3 75 Sort_table (.sort_key_count,key_w_pos] = .sort_Key_size + 1; 

: 1 754 Sort_table [.sort key_count,key_w_length] = .key_table C.index, sort_length]; 

3 3 755 Sort_index_table [C.sort_key_count] = .index; 

3; 293 P36 Sort_key_size = .sort_kéy_size + .key_table C.index, sort_length); 

3 ot Let Sort_key_count = .sort_key_count + 1; 

: 36 759 END; 

3 14 760 
. 7 761 | 
Bo 

> 2941 764 : 

; bot | 765 ' PARSE /SUMMARY VALUE LIST -=- 

; 23 766 : Parse the List of values associated with the /SUMMARY qualifier. 
3 2944 767 ; For each value store the address of the value descriptor in a 
> 2945 768 table and build a concatenated FAO control string. 
3 909 770 : In build summary the FAO control string and the List of descriptors | 
3 a : 44 is used fo build the summation key. 

; 2950 77 : Also, the FAO control err sng which prints the column header is 

: 991 77 modified to reflect the contents of the summation key. 

3 58 77 

3: 2954 77 Incra i do 

3; 2955 778 if not GET_VALUE (*SUMMARY', desc) then exitloop ! Get value 
; 528 779 else BEGIN 
3; 295 780 f strScompare (desc, ad ("USER')) eqlu 0 ! Special case 

; 98 781 4 AND not PRESENT (TYPE) 

3: 2g 7 ; 4 then BEGIN 

3: 2960 783 4 EXTERNAL quel itiers: bitvector (); ! Establish def type 

3: 2961 7 4 qualifiers CTYPE) = true; 

3 308 785 4 por vere (add_symbol (type, ad ("LOGFAIL"), true)); 

6 4" , ND; 

3: 2965 7 : If str$compare (desc, ad(*UIC’)) eqlu 0 ' If /SUMMARY=UIC 

3 2966 7 then ! then set a flag. 

3: 2969 79 If str$compare (desc, ad('HOUR')) eqlu 0 

3; 2970 79 or str$compare (desc, ad(*WEEKDAY')) eglu 0 

3; 2971 794 or str$compare (desc, ad("DAY')) eqlu 
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ACC 15-Sep-1984 23:36: VAX-11 Bliss-32 V4.0-74 Page 100 
¥Os-000 12-808-1 9b $7589: 43 DI SKSVMGHASTERSLACE SRCTACC.832: 1 9° 16) 
3 795 or str$compare (desc, ad('MONTH')) eqlu 0 

3 es ; or str$compare (desc, ad('YEAR')) eatu 8 

3 79 or str$compare (desc, ad('DATE')) eqlu 

3 £38 4 then BE 

: 7 4 EXTERNAL qualifiers: bitvector (); 

3 44 qualifiers Lexpand_date] = TRUE; 

; 0 . 

3 308 LOOKUP (desc, pergery_heyuore result); ' Lookup 

3 She sum_key_value [.i] = .result fol; ! Store addr 
3 805 perform (str$append (sum_key_fao, .result [1])); ' Build FAO 
; 806 perform (str$append (report_Rdrl_ tao, result £33): i Build FAO 
3 0 porsere (str$append (report_hdr3_fao, .result »); ! Build FAO 
3 oo8 ND; 

: 810 i FILL the front of report header 2 with ayeese equal to the length 

3 Ble : of the symbol header (which is equal to length of report header 1) 

; 81 

3 P 3814 Perform (str$dupl_char ( 

3 312 report_hdr2_fao, ZREF (.report_hdri_fao Cdsc$w_length]))); 
; B13 

; 818 : 

; 819 ! PARSE /REPORT VALUE LIST -- 

3 820 $ Parse the List of values associated with the /REPORT qualifier. 

; 821 ; For each value store the address of the control structure in the 

3 8 ; } value table and build concatenated FAO control strings for 

: 8 ; report wire tne time. One string describes the header for the 

3 : $ : report, the other the detail Line. 

; = 

; 8 $ ' Place a FAO arguement at the front of the report detail FAO control 

3 ; : ! string to print the summation key at WRITE_SUMMARY time. 

; ; , Perform (strS$append (report_det_fao, ad("!AS"))); 

; 009 8 ¢ Incra i do 

; 3010 33 if mot GET_VALUE ("REPORT', desc) then exitloop 

: 3011 834 else BEGIN 

3 44 835 LOOKUP (desc, regertheyuerd. result); 

: 301 539 report_value (.i] = -result; 

3: 3014 8 bucket_size = .bucket_size + (.result Csum_ent_bsize] * 4); 

3 3015 $33 perform (str$append (Feport_det_fao, .result (Sum_ent_fao))); 

; Bg 83 perform (str$append (report_hdrT_fao, .result sufl_en€ hdr ]5):; 

3 301 840 perform (strSappend (report_hdr2_fao, .result Csum_ent_hdr2])); 

; 3018 841 rosert., teens = .report_items + 1; 

3 B38 ae¢ END; 

; 031 ba ' 

; § 845 ! If /REPORT is active then reserve one more slot in the bucket 

3; 30 ? see for the symbol descriptor address 

; 3025 be , 

; , $ ‘8 If .bucket_size neq 0 then bucket_size = .bucket_size * 4; 

; 8 Bat return true; 
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11 
ibase “1 VAX=11 BL Liss -32 v4.0- Page 102 
1Zrees SSeS, tetas Sacc.ese;1 00 19 
1078 ADDRESS P sANO F 
00 20 1D7C P.AHQ: “ASC Po \<0 : 
10 P AHP: 3 
Oo 1D OORESS PAHO : 
' 0 1088 P.AHM: [ADDRESS DAY DESC, P.AHN : 
00 86 60 4F 1094 P.AHR: ASCII <4>\ROUR\<0><0><6> : 
41 1p9¢ P.AHU: <ASCII \!3AS\ : 
1DAO P.AHT: LL é : ; 
1DA4 “ADDRESS P.AHU : : 
00 20 4 1DAB BAN: “ASCL yn \<0> 
Faseereal 1905 ie. CABORESS PAM aur pan ; : 
00" 00 43 raat hae 1DCO P.AHX: <ASCI <5>\ RAGE <0» <0> ; : 
00 53 41 31 1p¢ BALA: “ASCH \ITAS\< ><0><0> : : 
1004 °  —s SADDRESS P.AIA : : 
00 20 65 6D 61 6€ 20 65 67 61 b's Ser) * rY ty \isege name \<0> : : 
1DE8 © ADDRESS P.AIC : 
00000000° ’ DEC P.Any “ADDRESS MAGE DESC. P.AHZ. P.AIB F 
4 of 4A 1DF8 PAID: ASCII <3>\ F 
00 00 00 53 41 39 1pF¢ p-AlG: “ABELL Tani ses <eoceo 
890 1608  LADDRESS P.AIG : 
$8 $8 8 38 38 0 20 65 6D 61 0 1E0C P.AII: ll \Job name es 3 
oO RSS Se Ht . : 
370988 He P.AIH: .LONG 39 : 
1E “ADDRESS P.AII : 
" 00000" 0000 1E P.AIE: .ADDRESS tyr DESC, P. oe P.AIH 3 
00 00 48 54 4E GF 4 1E48 P.AlJ: ASCII  <5>\MONTH\<0 F 
53 41 150 P.AIM: ‘ASCII \!3AS\ ; 
000000 1654 P-AIL: .LONG 4 ; 
1658 “ADDRESS P.AIM ; | 
00 20 4p 4p 1E5¢ p-AlO: , scl yn \<0> | 
099 1664 ° ADDRESS P.AIO : | 
00900000" 00000° E68 P.AIK: :ADDRESS MONTH D P.AIL, P.AIN : 
00 88 45 44 4F 1674 P.AIP: .ASCII <4>\NOBE \<05<05<0> 3 
00 00 53 41 30 lE7¢ peAlS: ASCH \! 1 10AS\<0><0><0> 
1688 ° | ‘ADDRESS P.AIS ; 
00 00 20 65 6D 61 6E 20 65 64 168 pal: mit \node name \<0><0> : 
1E9¢  LADDRESS P.ALU : 
9" 0000! 1EAO P.AIQ: [ADDRESS NODE aves P.AIR, P.AIT : 
53 45 43 4F 5 1EAC P.AIV: ASCII <7>\PR Océ SS. $§\ : 
00 00 535 41 HH 3 ht fa y* TSAS\< ><0><0> : 
1600  TADDRESS P.ALY : 
00 00 20 65 70 79 74 20 73 73 65 63 6F 35) P.AJA: ASCII \Process type \<0><0><0> : 
1E04 P.AIZ: .L 13 : 
0 * 90000900! TED P.Alw: “ADDRESS PROCESS. DESC, P.AIX, P.AIZ 
00° bo es 990008 55 1Ee8 PlAJB Athi <5>\QUE ratiteey : 
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00 00 00 53 41 31 FO P.AJE: .ASCII \!31AS\<0><0><0> 
FB P.LAUD: .L 
? 71 7% 9 72 70 2 tte P.AJG Agri \obre int que \<0> 
° : e 0 r ue 
$ 23 $8 23 5h 88 35 86 88 28 8S 8h 8 ; 
P.AJF: .LONG 31 
HUY . 4 eADDRESS P.AJG 
00000009" * Q , 8 P.AJC: ADDRESS Eve DESC, P.AJD, P.AJF 
00 00 00 4c 41 4E 49 4D 45 P-AJH: ASCII <8>\TERMINAL\<0><0>< 
4 40 P.AJK: ASCII \!9AS\ 
44 P.AJJ: .LONG 4 
0° O1F4 “ADDRESS P.AJK 
00 00 00 20 6C 61 6& 69 6D 72 rt P.AJM: .ASCII \Terminal \<0><0><0> 
3 P.AJL: .LONG 9 
0° -ADDRESS P.AJM 
' ' ' P.AJI: . ADDRESS TERMINAL DESC. P.AJJ, P.AJL 
00 00 4 59 C P.AJN: ASCII <4>\TYPE\20><0><0> 
41 4 P.AJQ: ASCII \!8AS\ 
78 P.AJP: .LONG 4 
0000000° 01F7 -ADDRESS P.AJQ 
20 20 20 20 65 70 4 P.AJS: .ASCII \Type \ 
000 8 P.AJR: .LONG 8 
000000° -ADDRESS P.AUS 
00000000' 00000900 / 0 0099" P.AJO: ADDRESS TYPE DESC, P.AUP, P.AJR 
43 4 43 P.AJT: .ASCII <3>\uUT 
00 00 00 53 41 37 1 AO P.AJW: ASCII \167AS\<0><0><0> 
99 00005 AB P.AJV: .LONG 5 
0 0 20 4 49 20 “ 300 5 rs P.AJY ASCE NOD C 
SRRRR RRA RRS BR : 
20 20 20 20 0 20 20 20 20 0 0 9 O§ eASCII \ \<0> 
0 20 20 20 20 20 E 
F4 P.AJX 67 
0000000° O1FF8 “ADDRESS P.AJY 
00990000" 00000' 9 * OIFFC P.AJU: . ADDRESS UIC DESC, P.AJV, P.AUX 
00 00 4 53 P-AJZ: ASCII  <4>\0SER\<0><0><6> 
00 41 1 21 10 P.AKC: <ASCII \!13AS\<0><0><0> 
9000 5 18 P.AKB: .LONG 5 
99 ' 16 -ADDRESS P.AKC 
00 00 20 20 20 20 20 65 6D 61 6E 72 65 P.AKE: . ASCII \Username \<0><0><0> 
P.AKD: .LONG 13 
° SADDRESS P.AKE 
00000000' 99000900° ' P.AKA: ADDRESS USER DESC, P.AKB, P.AKD 
59 41 44 48 45 45 4 P.AKF: .ASCII <7>\WEEKDAY\ 
53 41 1 P.AKI: ASCII \!3AS\ 
P.AKH: .LONG 4 
' 4 “ADDRESS P.AKI 
00 20 44 4 8 P.AKK: ASCII \DD \<0> 
P.AKJ: .LONG 3 
0099" 00000° :; P.AKG ADDRESS OEEKDAY DESC, P.AKH, P.AKJ 
00°89 990 9000" 4 P-AKL: .ASCII] <4>\YEAR\<0><6><0> 
53 41 35 21 78 P.AKO: ASCII \!SAS\ 
00000 7C P.AKN: .LONG 4 


Pee Se Se Se Se Se Se Se Se Se Ge Se Ge Fe Se Se Se Ge Ge Ge Ge Se Se Se Ge Be Se Be Se Se Se Se Se Se Se Ge Se Ge Fe Se Se Se Se Ge Ge Fe Se Ge Fe Se Se Ge Fe Se Se Se 


20 20 20 


20 20 20 


4F 


64 


20 


43 


65 


65 


SF 


af 


73 


4E 


4G 


20 


20 


00 00 00 P.AKQ: 
P.AKP: 

. P.AKM: 
45 P.AKR: 
00 P.AKU: 

P.AKT: 
65 72 65 P.AKW: 
C8 P.AKV: 
56 
20 4F 2F P.AKY: 
+45 P.AKX: 
E 
OE P.AKS: 
€8 
00900009" oF9 
SF 54 4 FC P.AKZ: 
00 00 00 108 P.ALC: 
110 P.ALB: 
114 
63 65 72 118 P.ALE: 
: ; P.ALD: 
20 4F 2F 12C P.ALG: 
1 P.ALF: 
13¢ 
140 P.ALA: 
144 
conga is 
44 4 8 136 P.ALH 
25 21 20 160 P.ALK 
: ‘ P.ALJ 
61 6C 45 te P.ALM 
i: P.ALL 
54 20 20 190 P.ALO 
19F 
1A4 P.ALN 
1A PALI 
180 . 

184 
ris 38 1e0 P.ALP: 
00 00 138 P.ALS: 

108 P.ALR: 

106 : 
20 65 67 1€0 P.ALU: 

ie P.ALT: 
74 6€ 75 1f4 P.ALW 
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“ASCIT Wea 
“Al Year \ loeoas 


S ADDRESS yt 
rts) ss Y Me areca + AKN, P.AKP 
+3, <11>\BUFFER 0.40% 
“Ase y! 'BUL Ra chs >2 
mths SS P.AKU 
\ Buf fered\<0><0><0> 
ait .. 
“ADDRESS P. 
" 3 nO \<0><0><0> 
ADDRESS P.AKY 
«LONG 
ADDRESS HOLD_BIOCNT 


DRESS P.AKT, P.AKV 
Ascii <O\DIRE t LOX <o5<0> 
ASCII \ !8UL\<0>20><0> 
~ LONG - 
eADDRESS P.ALC 
“ASCII 3 Direct\<0><0><0> 


~LON 
noone ss P.ALE 
SCI] 1/0 \<0><0><0> 


“tong 
ADDRESS P.ALG 
-ADDRESS HOLD_DIOCNT 


mt 

ADDRESS P aviWe P.ALD, P.ALF 
“ASCII <7>\ELAP 

“ASCII ; '4UL !2ZT\<0><0><0> 


- LONG 
-ADDRESS P.ALK 


ASCII \ Elapsed \<0><0><0> 


-LONG 17 
-ADDRESS P.ALM 
ASCII \ 


Cll Time \<0><0><0> 


«LON 17 
“ADDRESS P.ALO 


LONG 

-ADDRESS HOLD_ELAPSED 

LONG 

“ADDRESS P.ALJ, P.ALL 

“ASCII | <9>\EXEC FION( <05<0> 
y! 'BUL\<0><0><0> 


- LONG 

ADDRESS P.ALS 

“ASCII \ Image \<0><0><0> 

-LONG 9 

eADDRESS P.A 
ASCII \ = \<0><0><0> 


45 


20 


73 


74 


20 


73 


65 


65 


1Fo}eo- 


1986 47:39:58 DiSksmsnasten 


P.ALV: .LONG 9 
ADDRESS P.ALW 
P.ALQ: .LONG 9 
ADDRESS HOLD_EXECUTION 
; LONG 1 
«ADDRESS P.ALR, P.ALT, P.ALV 
88 & P.ALX: .ASCII <6>\FAULTS\<0> 
P.AMA: .ASCII \ !8UL\<0><0><0> 
P.ALZ: .LONG 5 
-ADDRESS P.AMA 
65 67 61 P.AMC: .ASCI \ Page \<0><0><0> 
44 P.AMB: .LONG 9 
48 ty) P.AMC 
74 6C «75 of P.AME: .ASCI \ Faults\<0><0><0> 
2 P.AMD: .LONG 9 
25 ADDRESS P.AME 
P.ALY: .LONG 0 
re} ‘ee 
00000000" -ADDRESS P.ALZ, P.AMB, P.AMD 
00 + % $f P.AMF: .ASCII <4>\GETS\<0><6><0> 
00 P.AMI: .ASCII \ !8UL\<0><0><0> 
P.AMH: .LONG 5 
35 7) P.AMI 
6— 6F 69 P.AMK: .ASCI \ Symbiont\<0><0><0> 
H P.AMJ: .L 9 
-ADDRESS P.AMK 
20 73 7% AG P.AMM: .ASCII \ Gets \<0><0><0> 
BO P.AML: .LONG 9 
B4 -ADDRESS P.AMM 
BS P.AMG: .LONG 0 
23 ‘oe 
00990000" C4 eADDRESS P.AMH, P.AMJ, P.AML 
00 99 5 DO P.AMN: <ASCII  <5>\PAGES\<0><0> 
00 00 D8 P.AMQ: .ASCII \ !8UL\<0><0><0> 
EO P.AMP: ONG 5 
E4 -ADDRESS P.AMQ 
65 67 61 E8 P.AMS: .ASCII \ Pages \<0><0><0> 
F4 P.AMR: .LONG 9 
8 eADDRESS P.AMS 
65 74 6€ FC P.AMU: .ASCII \ Printed\<0><0><0> 
08 P.AMT: .LONG 9 
18 eADDRESS P.AMU 
10 P.AMO: .LON 0 
\ oNOceSS MOLD _PAGCHT 
00990090" i -ADDRESS P.AMP, P.AMR, P.AMT 
49 46 F 4 P.AMV: <ASCII  <9>\PAGE_FILE\<0><0> 
00 00 P.AMY: .ASCIIT \ !8UL\<0><0><0> 
f P.AMX: .LONG 5 
eADDRESS P.AMY 
67 61 70 44 P.ANA: .ASCII \ Peakpage\<0><0><0> 
0 P.AMZ: G 9 
4 eons P.ANA 
73 75 20 8 P.ANC: .ASCII \ File use\<0><0><0> 
64 P.ANB: .LONG 9 
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-ADDRESS P.ANC 
5 P.AMW: .LONG 2 
«ADDRESS HOLD_PGFLPEAK 


“LONG 
-ADDRESS P 
5. “ASCII *OIo's \<0><0><0> 


~LONG 
eADDRESS P.AOA 
P.ANU: .LONG 0 

-ADDRESS HOLD_QIOCNT 


00 00 00 20 73 27 4F 49 51 20 


1 
SS P.ANV, P.ANX, P.ANZ 
: <7>\RECORDS\ 
et ASCII 2? '8UL \<0><0><0> 


ONG 
“ADDRESS P.AOE 
AOG: “ASCII \ Total \<0><0><0> 


-LON 
ta) td 


4 ae : 

ee ‘0 009007 ts : 

00 53 44 41 45 ? 4 P.AND: AHS choo PAGE R + : 
00 4c 55 $4 53 PANG: \! pa NPhck AEA bs\ 3 

98 P.ANF: tb - : 

9 ts) ae ANG 3 

00 00 00 20 4F 49 20 65 67 61 AO P.ANI: \ Page 10 \<0><0><0> : 
AC P.ANH: .LONG 9 : 

ADDR SS P.ANI 3 

00 00 00 20 20 20 73 64 61 65 B4 P.ANK: .ASCII] \ Reads \<0><0><0> : 
CO P.ANJ: .LONG 9 3 

C4 eADDRESS P.ANK é 

C8 P.ANE: .LONG 0 3 

3 cc ADDRESS HOLD_PAGEREADS é 

dO “LONG 1 3 

00990009" 00000000' D4 -ADDRESS P. -ANH, P.ANJ 3 

00 00 52 oF 53 53 4 F 52 £0 P.ANL: .ASCII <B5\PROCE §SOR\<0><0> : 
00 00 54 25 21 20 5 ef P.ANO: .ASCII \ !4UL !2%T\<0><0><0> ; 
0 F8 P.ANN: ONG 9 3 

4: -ADDRESS P.ANO 3 

20 20 72 6F 73 73 65 63 6F 72 50 $8 $9 400 P.ANQ: .ASCII \ Processor \<0><0><0> : 
00 00 00 0 4OF 3 

0 1 414 P.ANP LONG 17 3 

0" 02418 -ADDRESS P.ANQ __ ; 

20 20 20 20 65 6D 69 54 20 20 20 20 20 0 41C P.ANS: .ASCII \ Time \<0><0><0> 3 
00 00 00 0 428 3 

00011 4 P.ANR LONG 17 3 

000000 4 eADDRESS P.ANS é 

000001 438 P.ANM: .LONG 1 3 

0000 43¢ ADDRESS HOLD_CPUTIM $ 

ea hahe: 440 -LONG 4 3 

00000000' pia 29 000° 02444 oA ANR 3 

00 00 0 49 51 04 02450 P.ANT: “ASCH <4 EsNalos\cdo<Oo<o> : 

00 00 0 55 38 4 9 458 P.ANW: .ASCII \ !8UL\<0><0><0> 3 

90 0 460 P.ANV: .LONG , 3 

29 00° 02464 - ADDRESS 3 

00 00 00 74 6E 6F 69 62 6D 79 3 $58 P.ANY ASCII \ Psymbiont\<0><0><0> : 
0 474 .. 3 

478 3 

47 \ 3 

4 9 3 

4 3 

4 3 

494 3 

is : 

is : 

288 

rd 3 

te 

256 

404 3 


0 

0 

0 
000000 99000 00° 7 : P 

53 44 2 tt 45 

00 00 00 4C 38 H 9 
: | 
00 00 00 6C 61 74 6F 54 20 20 0 p 
3 


AO0G 
00 00 00 73 64 72 6F 63 65 52 \ “Records\<0><0><0> 


73 


64 


65 


72 #6F 77 


67 61 70 


00000000" 


00 59 52 


00 4C 49 


00 59 41 


00 00 00 


4c 5 


COOMOOCOCOCOCOMOOMOGONMOCOCOCOSCO 


oo 


68 61 65 


Son 


20 74 65 


00000000° 
54 52 


41 4D 4 


Ss oo oo ocoocec oOo 
MOOMODOMODODOCOCON) 


0 
0 
0 
0 
00000000' 
4B 52 4F 
38 
0 
0 
0 
0 
0 
0 
s 
0 
0 
5 
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.LONG 9 
“ADDRESS P.AOI 
ON 
“ADDRESS P.A0D, P.AOF, P.AOH 
"ASCII <7>\VOLUMES\ 
A 'BUL\<0><0><0> 


P.AOM 
Volumes \<0><0><0> 


“LONG 
-ADDRESS P.A00 
week Mounted\<0><0><0> 
"ADDRESS P.AOQ 

;ADDRESS HOLD_VOLUMES 
“ADDRESS P.AOL, P.AON, P.AOP 
"ASCII <17>\WORKING Ser\ 
ASCII 'BUL\<0><05<0> 
LONG 

“ADDRESS P.AOU 

ASCII Peakwork\<0><0><0> 
LONG 

“ADDRESS P.AOW 

vant Set page\<0><0><0> 
“ADDRESS P.AOY 

“ADDRESS HOLD_WSPEAK 

LONG 


eADDRESS P.AOT, P.AOV, P.AOX 
eASCII \SORT\ 

-LONG 4 
.ADDRESS P.APA 
ASCII \SUMMARY\<0> 
«LONG 7 

ADDRESS P.APC 
ASCII \USER\ 

~ LONG 4 
ADDRESS P.APE 
ASCII \LOGFAIL\<0> 
-LONG 7 

ADDRESS P.APG 
eASCII \UIC\<0> 
~LONG 

ADDRESS P.API 
ASCII \HOUR\ 

-LONG 4 
ADDRESS 
ASCII 
LONG 

-ADDRESS P.APM 

ASCII \DAY\<0> 

-LONG 3 

ADDRESS P.APO 

-ASCI1 \MONTH\<0><0><0> 
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8 P.APP: .LONG 5 


VAX-11 Bliss-32 V 
DISKSVMSMASTER 


“ADDRESS S$ P.APQ 
P.APS: .ASCII \YEAR\ 
P.APR: .LONG 4 

KD DRESS P.APS 
P.APU: “feels \DATE\ 
P.APT: .LON 

ADDRESS P.APU 
P. ue ASCII \tas\eo> 
P.APV: G 3, 

;ADDRESS P.A 
P.APY: ope lt \REPORT\<0><0> 
P.APX: 


«LON 
ADDRESS P.APY 
-PSECT SOWNS,NOEXE,2 


DESC: .BYTE  OC3) 


SORT_KEYUORD: 
[ADDRESS P.AFT 
[ADDRESS P.AFU 
“ADDRESS P.AFV 
“ADDRESS _P.AFW 
“ADDRESS P.AFX 
“ADDRESS P.AFY 
“ADDRESS P.AFZ 
"ADDRESS. P.AGA 
"ADDRESS. P.AGB 
“ADDRESS. P.AGC 
“ADDRESS P.AGD 
“LORS ss P.AGE 
“ADDRESS. P.AGF 
“ADDRESS. P.AGG 
"ADDRESS. P.AGH 
“ADDRESS ‘P.AGI 
AGN 
.AGK 
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1228 08- 1 3be ee NTR SUMEMASTER LACE sac SACC.B32:1 9° 16) 

000011 001A8 .LONG 17 ; 
00° 1a SADDRESS P.AGL : 
1 1B 18 3 
00" 001B4 SADDRESS P.AGM : 
1 1B8 “LONG 19 : 
90 ' OBC “ADDRESS P.AGN : 
09 06° OOTes SODRESS -P.AGO : 
00 tt 1¢8 ‘ : 
9990 00" 001¢C “ADDRESS P.AGP ; 
00016 00100 “LONG 22 : 
99 90 * 00104 “ADDRESS P.AGQ : 
17 00108 “LONG 23 : 
999009" O1D¢ “ADDRESS P.AGR : 
00 018 OO1E ay 24 : 
90 90000" O1E4 “ADDRESS P.AGS : 
0000019 O01E8 “LONG 25 : 
0000000" O01EC “ADDRESS P.AGT : 
900001A 001FO “LONG 26 : 
0000000° OO1F4 “ADDRESS P.AGU ; 
00000018 001F8 [LONG 27 ; 
00000000° O01FC “ADDRESS P.AGV : 
9090001¢ 00200 “LONG 28 - : 
00000" 00204 “ADDRESS P.AGW : 
0000001D 00208 [LONG 29 : 
00000000" 0020¢ “ADDRESS P.AGX ; 
9000001 00 10 “LONG 30 : 
00000000" 00214 “ADDRESS P.AGY ; 
0000001F 00218 “LONG 31 : 

00000020 0021C seca (a 
00000000" 00000000° 00000000° 000090000' 90220 “ADDRESS P.AGZ, P.AHA, P.AHF, P.AHG, P.AHL, - : 
90000000" 00000000° 00000000' 89900000" 002 P.AHM, P.AHR, P.AHS, P.AHX, P.AHY, P.AID, - : 
* 00000000" 00000000* 00000000" 00000000° 00250 P-AIE. P.AlJ. P.AIK. P.AIP. P.AIQ, P.AIV. =: 
00000000" 00000000° 00000000" 90090000" 00268 P-AlW. P.AJB. P.AJC. P.AJH,. P.AJI. P.AUN. =: 
00000000" 00000000' .3000000° 00000000' 00280 P'AJO. P.AJT. P.AJU. P.AJZ, P.AKA, P.AKF, =; 
00000000* 00000000° 00298 P.AKG, P.AKL, P.AKM : 

0000001C 002A0 REPORT_KEYWORD: a 
00000000' 00000000' 00000000' 00000000° 002A4 “ADDRESS P.AKR, P.AKS, P.AKZ, P.ALA, P.ALH, - : 
00000000* 00000000' 00000000" 00000000° 002BC P.ALI, P.ALP, P.ALQ, P.ALX, P.ALY, P.AMF, - ; 
00000000' 00000000" 00000000° 00000000' 00204 P-/AMG. P.AMN. P.AMO. P.AMV. P.AMW. P.AND. - : 
0000000" 00000000" 90990000" 00000000' O02EC P.ANE. P.ANL. P.ANM. P.ANT. P.ANU. P.AOB, - ; 
000° 00000000" 00009000° 00000000° 00304 P-AOC, P.ADJ. P.AOK,. P.AOR. P.AOS : 

.PSECT $GLOBAL$,NOEXE,2 
00000001 00000 KEY_TABLE? 

00000 9" 0004 “ADDRESS ACCOUNT_DESC ; 
00000002 99 00 9008 “LONG 8 F 
0000" 0001 “ADDRESS ENTRY_DESC ; 
00000002 0014 “LON : 
* 0001 [ADDRESS Ff INISH_TIME_DESC ; 
00000002 00 “LON ; 
09 0000' 000 “ADDRESS IDENT _DESC ; 
00000001 00000004 0002c “LONG 4, ; 


PGES TAT ee eee RW 2 eg apegek aaa Peele Ae 
vOe-000 


<n" 
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Ser a= 


: -ADDRESS _IMAGE_DESC : ; 
—"s op ODRESS JOB, DESC : 
— + Booee ODRESS NODE. DESC ; 
00000002 $ 6 «LONG 6,2 : ; 
' -ADDRESS OWNER_DESC : : 
00000001 ¢ “LONG 4 : ; 
5° 00064 “ADDRESS PROCESS_DESC : ; 
00000001 08 068 LONG ‘ : : 
* 000 “ADDRESS QUEUE_DESC : : 
00000002 0 1F 9074 LONG p : : 
0° 0007¢ “ADDRESS QUEUE_TIME_DESC : 3 
00000002 0008 000 LONG : ; 
0000" 000 “ADDRESS S§TART_TIME_DESC : | ; 
00000002 99 008C¢ LONG : | 3 
000000° 00094 “ADDRESS S$TATUS_DESC : : 
00000001 00000004 00098 “LONG 4, 1 : | ; 
0000000" 000A0 -ADDRESS TERMINAL _DESC ; | : 
00000001 00000008 QOA4 [LONG : ; 
000000" 000AC [ADDRESS fYPE_DESC : 3 
00000001 00000008 00080 “LONG 8, : : 
0000000" 00088 “ADDRESS USER_DESC : ; 
00000002 0000000C 0008C : , ; : 
0000000" 000¢4 “ADDRESS ADDRESS_DESC : ; 
00000002 00000004 900¢8 “LONG 4 : ; 
90000000" 0000 [ADDRESS BUFFERED_10_DESC ; ; 
00000002 00000004 00004 “LONG 4, : : 
0000000" 000D¢ “ADDRESS DIRECT_10_DESC : ; 
00000002 00000004 OO0EO “LONG 4 j : 3 
0000000" 0008 “ADDRESS CPU_TIME_DESC : : 
00000002 00000004 O90E¢ “LONG 4 : | 3 
0000000" O00F4 “ADDRESS PAGE_FAULTS_DESC ; ; 
00000002 00000004 900F8 “LONG 4 : | : 
000000° 00100 ~ADDRESS PAGE_READS_DESC : ; 
00000002 00000004 00104 [LONG 4 : ; 
000000" 0010¢ “ADDRESS PAGE_FILE_DESC : ; 
00000002 00000004 9110 "LONG 4, : : 
000000" 0011 “ADDRESS WORKING_SET_DESC : ; 
00000002 00000004 0011C “LONG 4 : ; 
9000000" 0124 ADDRESS EXE CUT 10N_DESC : 3 
00000002 00 0128 “LONG 4 : 3 
000000° 001 “ADDRESS ELAPSED_DESC : ; 
00000002 9 8 91 LONG ; ; 
* 0013¢ -ADDRESS PRIORITY DESC : : 
00000002 000 9001 9146 “LONG 1, : : 
000000" 0014 “ADDRESS VOLUMES_DESC : : 
00000002 00000004 0014C “LONG 4 : : 
000000° 0194 “ADDRESS SYM_PAGE_DESC ; : 
00000002 0158 “LONG 4 : 
' 91 “ADDRESS SYM_GET_DESC : 
00000002 164 “LONG 4 ; 
* 0016 [ADDRESS SYM_Q10_DESC ; 
00000002 1 “LONG 4, : 
0 * 0017 “ADDRESS UIC_BINARY_DESC : 
0000 17¢ -LONG 4 : 
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0000°CF 
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<PSECT CODE,NOWRT,2 

Save R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 

MOVAB QUALIFIERS. R11 

MOVAB LIBSLOOKUP_KEY, R10 

MOVAB CLISGET_VACUE, R9 

MOVAB P.A0Z 

MOVAB STRSAPPEND, R7 

MOV STRSCOMPARE, R6 

MOVAB DESC, R 

MOV BUCKET SIZE, R4 

SUBL2 #12, S$ 

CLRW © SORT_KEY_COUNT 

ae (ie 

PUSHL R5 

PUSHL RB 

CALLS #2. CLISGET_VALUE 

BLBC > 

CLRL —«KEY_ORDER 

PUSHL 

CALLS #1, STRIP_NEGATOR 

BLBS : 

VL = #1,_KEY_ORDER 
PUSHAB 
PUSHAB SORT_KEYWORD 
PUSHL R5 
CALLS #3, L 18S, QOKUP_KEY 
BLBS TATUS, 3$ 
MOVZWL SORT_KEY COUNT, RO 
MULL3 #12, INDEX, R1 
PUSHAQ SORT Taste tRO] 

PUSH KEY_TABLECR1 
MOVW (SP)+, a(SP)+ 
PUSHAQ SORT _TABLE+2(RO) 

VW KEY_ORDER, a(SP)+ 
PUSHAQ SORT TABLE+4(RO) 
ADDW3 #1, SORT KEY Size. a(sP)+ 
PUSHAQ SORT TaBce s6CRO 
PUSHAB KEY TABLE+8(R1 
MOVW a(SP)+, a(SP)+ 
MOVB _—s INDEX, SORT_INDEX_TABLECRO) 
PUSHAB KEY TABLE+8CR1) 
MOVZ2WL a(SP)+, RO 
ADDL2 RO, SORT_KEY SIZE 
INCW  SORT_KEY~COURT 
AOBLEQ #10,7], T$ 
CLRL. oI 
PUSHL 5 
PUSHAB P.APB 
CALLS 3, CL ISGET_VALUE 
BLBS = «RO. 6 
BRW 11§ 

PUSHAB P.APD 
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ACC 1.36 “19 1:36:11  VAK=11 Bliss-32 v4.0-74 Page 112 F 
¥04=000 Veaee ERs FTE theta hte saeSacc.es2;1 799433 \ 
DD 000D PUSHL R ; : 
be 3 F 8 Bt cA LS #2, STRSCOMPARE : : 
D BNEQ 7 : : 
16 03 AB ; DA BBS #3, QUALIFIERS*3, 7$ : 3781) ; 
AB DF BISB2 #8, QUALIFIERS+ : 3784) : 
1 BD E PUSHL #1 : 3785 : 
2c AB O£ PUSHAB P.APF : ; 
1B DD O00E PUSHL ue? F ; 
000000006 00 Q re OOEA CALLS #3, ADD_SYMBOL : : 
v1 i Of} LBS STATUS, ~7$ : | : 
38 ag F a0rs 7$ PUSHAB P.APH : 3788 ; 
55 DD O00F PUSHL 5 : : 
66 g FB OOOFA CALLS #2, STRSCOMPARE : | ; 
D5 O00FD TSTL «6 : | ; 
0 12 OOOFF BNEG 8$ : ; 
0110 4 1 p 9191 MOVL #1, SUMMARY_UIC + 3790 : 
ae St: ae a a bale! 
a8 2 FB 00108 CALLS #2, STRSCOMPARE : : 
D 00106 TSTL RO : ; 
D 13 0011 BEQL «6soO9S : | : 
54 As 9F OO112 PUSHAB P.APL : 3793) F 
55 DD 0011 PUSHL : : 
66 02 FB 00117 CALLS #2, STRSCOMPARE : ; 
50 05 OO11A TSTL RO : | F 
31 13 O011C BEQL 6-«9$ : : 
60 A8 9F OO11E PUSHAB P.APN > 3794 : 
55 DD 00121 PUSHL R : ; 
te 02 FB 00123 CALLS 2, STRSCOMPARE : ; 
50 D5 00126 STL OR : : 
25 13 00128 EQ 4=s«O9'S 3 
70 Ag 9F 0012A PUSHAB P.APP : 3795) 
55 DD 00120 PUSHL R5 F 
of 08 FB OO12F CALLS #2, STRSCOMPARE : 
DS 00132 TSTL RO ; 
19 13 001 BEQL «6=-«O9S ; 
7¢ Ag 9F 001 PUSHAB P.APR : 3796 | 
55 DD 00139 PUSHL R : | 
64 08 FB 001 CALLS 2, STRSCOMPARE ; 
05 001 TSTL R 3 
0d 13 0014 BEQL «9 : 
0088 £8 9F O14 PUSHAB P.APT : 3797 
DD 0014 PUSHL : 
66 9 FB 0014 CALLS #2, STRSCOMPARE : 
D 0148 TSTL = R : | 
0 1 14D BNEQ 108 : 
03 AB 8 F 8 14F 9$: BISB2 #128, QUALIFIERS+3 : 3800 
0 AE 9F 00154 10$: —~ PUSHAB UL ; 3803) 
010¢ g 9F 00157 PUSHAB SUMMARY_KEYWORD : | 
DD 00158 PUSHL R : | 
6A 93 FB 001 CALLS #3, LIBSLOOKUP_KEY ; | 
4 E9 001 BLBC STATUS, 14$ ; | 
5 08 AE DO 0016 MOVL RESULT R > 3804. 
Oc Ass 62 00 0016 ve = (R2), SUM_KEY_VALUECI) ; | 
04 A2 DD 0016C PUSHL  4(R25 > 3805. 


taf See ie le -11 Bliss-32 V4.0-74 ; 
~penn}8s 973:8f: yt S CACC. SRCIACC.B32:1 
6 NEREIRE TELL aga 
ee SHAB 5S K FAO 
” 43 +4 $f eyes ie STRSAPPEND 
cE BE i 
1 FAO 
erat c g? 178 PUSHAB ae PALL 
ee 0 
. SHL (R2) 
08 i pp i PUSH ae sth SAPPEND 
shit fF 18C CALLS kr 168 
$f EB 4 fF BLBC STATUS, 
; aro 
FF64 = 4 i a 118: MOVZWL REPORT_HDR1 FAO, (SP) 
- 5E BP 13 Puen REPORT _HDR2 FAO 
—. @ 44 OAs CALLS a, arise 178” CHAR 
ul wm BBs | Bie Rae 
Ose : : DONT DET _FA 
dot BA BOE a ets 
$? 9 E9 00187 12$: LBC 
” 5 D4 001BA CLRL 
55. DD dt t§ 13$: A Hh A 
_ cs 44 O01¢9 CALLS eee "CL ISGET. VALUE 
69 F 8 001C ee a 
or et: ee 
me 55 OD ote, atte a3 LIBSLOOKUP_KEY 
9 93 cB oO iba BLBS STATUS, 15$ 
si 20 eS dt 24 14$: cus. R5 
1 DD 0010 
PUSHL 
gmmme RRB BE ii 
seem: 50 OO9FIOFC 8F B? ODIs ag 
BR ee ee ati 
“ MOVL 8 17 
te ? - a 4 otto MOVAL aBUCKET_ SIZECROJ, BUCKET_S 
ee Oe ee 
ere 3 4 3 8 CALLS PE a * ‘ang 
S. 6 fe 0206 16s: glbt  SAqUS, 2 
? R1_ FAO 
reot CE BE OST] © USHAB REPORT woRD ta 
14 g £8 0218 LBC TATUs, 20$ 
. ie " g? ie Pusnn PORT _HDR2 FAO 
si S ROS: aS STRSAPPEND 
ef 03 fe 17$ tae STATUS, 20% 
" 4 4 INCL REPORT_ITEMS 
she $3 Be B INCL 33 
8D 11 00220 BRB 


<n 


vOs-000 


; Routine Size: 


570 bytes, 


50 


Routine Base: 


18$:  -TSTL BUCKET_SIZE F 

3 BEQL 3 
: seas ADDL2 a, BUCKET SIZE ~ 
00 : RET ; ; 3833 


CODE + 2664 


Abeta at Bes]) vated ssn tht ce.ese:1 | dS 
384 


208: 


<" 


WHS iste REAL WRSDEAMNEREtGTBaceaases 
HR BES Eilean 


-EXTRN LIBSSIGNAL 


; PSECT SUMMARY 

: Name Bytes Attributes 

> DATA 2280 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL. CON.NOPIC ALIGN (2) 
; LIBSKEYOS NOVEC,NOWRT, RD, Hf SHR, LCL, REL, CON, PIC,ALIGN(1) 
3; —LIBSSTATES 10 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) 
3 c00E 1039 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SGLOBALS 384 NOVEC. WRT. RD .NOEXE.NOSHR. LCL, REL. (CON,-NOPIC.ALIGN(2) 
: Library Statistics 

: eee recess Sy mbols -oo----- Pages Processing 

3 File Total idaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBJSTARLET.L32;1 9776 168 581 0:01. 

3 BS SEtttnys f SYSL’BITPAMAC.L32; 1 42 19 45 14 $0 8075 

3 COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD,"NITIAL .O©7 SA1ZE)/LIS=L1S$:ACC/0BJ=0BJ$: ACC MSRC$:ACC/UPDATE=(ENH$:ACC) 

: Size: 6207 code + 7653 data bytes 

: hn Time 2:44.1 

: Elapsed T Time :10.8 

3 Lines/CPU Min 14 

3 Lexemes/CPU-Rin: 29782 

3; Memor “1 ut 767 pages 

3; Compi ation Complete 
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